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98 2.1 PDP=-11 COMPUTER WITH A TELETYPE, AN RPO DISK DRIVE, AN ALIGNMENT 
33 DISK PACK (’CE’ PACK), AND A DOU OR DEDU TEST BOX. 
O} 2.2 PROGRAM STORAGE 
O3 THE PROGRAM REQUIRES APPROXIMATELY 3K OF STORAGE. 
= 2.3 PRELIMINARY PROGRAMS 
07 * NONE 
e 
3 LOADING PROCEDURE 


THIS PROGRAM IS LOADED USING THE ABSOLUTE LOADER OR BY USING THE 
APPROPRIATE *XXDP’ SYSTEM. 


4. - STARTING PROCEDURES 


4.1 CONTROL SWITCH SETTINGS 
(SEE SECTION 5S) 
4.2 STARTING ADDRESSES 


THE PROGRAM IS STARTED AT LOCATION 200. 
RESTART SS IS LOCATION 204. 


4.3 PROGRAM & OPERATION ACTION 

LOAD THE PROGRAM INTO MEMORY (SEE SECTION 3) 
LOAD ADDRESS 200 

SET THE SWITCHES AND PRESS START 


PLACE AN ALIGNMENT DISK PACK ON THE DRIVE TO BE CHECKED AND 
CONNECT THE DDU OR DEDU TEST BOX. PUT THE DISK ORIVE 
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143 | TO STABILIZE. REFER TO APPLICABLE MAINTENANCE PROCEDURES 
1 FOR THE AMOUNT OF TINE. 

i 6. SELECT THE DRIVE TO BE CHECKED IN RESPONSE TO THE TYPEOUT 
eg . ie THE ey BROSRARC TS 70 Ben use FOR HEAD A RGNHENT ENTER ANeye 
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IF HEAD AO ALIGNMENT ROME: 2 aeteckeD; OR ENTER AN’'E’ IF THE 
“ The PROGRAN Wi POSITI , Ware EYL TNOER ThE PROGRR 
rt but Ach es eae” 
A 


10. THE PROGRAM WILL BEGIN CHECKING eD ALIGNMENT ON THE SPECIFIED 


RRR EAA ita tat aetna 






st: Sane erdapaer!, ENTERED, (SW<O2> = 0) 
11. WHEN THE HEAD ALIGNMENT CHECK ON 
ano ae rele to tee NE BaIve 70. Be CHECKED. “WHEN 
; is SE NOT NE OT NECESSARY 10 RESTART THE” ca ce ane ee 
177 4.3.1 ORIVE SELECTION 
ig i PAIS PPR AL ESSE Dc ER ARLE (PS 





Hy Be Tae Sioa SNL a Me 
GPPN SONPLETED BEPORETA DRIVE 1S SELECTED. 
4.3.2 RH70 - UNIBUS ADDRESSES 


DESPRE SPS ISTAPSGREUOESS SER SET 


ARTED AT LOCATION 200 
Fae RH70 “RHO. ADDRESS mINTO COCATION 7200 AND THE VECTOR ADDRESS INTO 
LOCATION 1e0e. 


S. OPERATIONAL SWITCH SETTINGS 


RONEN ON SR 
SSRRLSVLSSBIRRLSHAS 





fest: .. HALT ON ERROR 
auc >=1... INHIBIT ERROR TYPEOUTS 
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6.2 


6.3 





ERRORS 


TEST ERRORS © 


THE PROGRAM CHECKS THAT EACH 
age THE TRACK CENTERLINE FOR CYLI 

MICRO@INCHES FOR CYLINDERS 4 AND 4 
NOT W pain Me TOLERANCES 


AL 
WILL NOT BE IDENTIFIED. ) 
ENTRY ERRORS 


THE PROGRAM WILL NOT ACCEPT DRIVE NUMBERS GREATER THAN 7. IF 
AN INVALID DRIVE NUMBER IS ENTERED IN RESPONSE TO THE DRIVE 
NUMBER REQUEST, THE PROGRAM WILL TYPE A ’?’; THE OPERATOR MAY 
ENTER A VALID Arcee. 


‘s pee NOT ACCEPT 24 ADDRESSES GREATER THAN 18 I at 


ve FoR ELT HER THE : Aor’ ae evi NOER Ate PROGRAM 
WICL oe oe BETH Mp0 08 THE DRIVE CTION ROUTINE. 


SER Aah MS PCA, BAN dE 
BE NOTIFIED. 


DRI I C THAT THE DR GNED 
S PRESENT AND CHLINE. THE PROGRA fi REJECT nOSIGRENTS. FOR 
RIVES HHICH ARE T PRESENT OR ARE NOT ONLINE 
SUBSYSTEM/DEVICE ERROR MESSAGES 
ss NTERRUPT (SC=0 OR RHAS=0)’ - A SUBSYSTEM 
1 accuneD BUT *SC’ BIT IN RHCS1 IS NOT SET OR THE 
INTERALEr REGISTER (RHAS) IS ZERO. 


2. TECTED ATTENTION’ - THE INDICATED DRIVE INTERRUPTED BUT 
NO INTERRUPT WAS EXPECTED. 


3. ‘CONTROL BUS PARITY ERROR WAS DETECTED BY THE RH70’ - A CONTROL 


BUS PARITY ERROR Tihs DETECTED BY THE RH70 WHEN THE INDICATED 
REGISTER WAS READ. 


“SBOE PS Ty PE PIE Be 


R WHEN THE 
CONTROLLER ATT TO WRITE INTO au INDICATED DRIVE REGISTER. 


5S. ‘ATTENTION FROM AN UNASSIGNED DRIVE’ - ie ATTENTION REGISTER HAS 
AN ATTENTION BIT SET FOR A et ha TS NOT CURREN 
ACTIVE IN AN OPERATION. THIS C 


TLY 
CAUSED BY CYCLING A DRIVE 
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UP OR DOWN WHILE ANOTHER DRIVE IS BEING CHECKED. 


6. ‘DEVICE ERROR’ - THE INDICATED DRIVE HAS EITHER DETECTED AN 
UNSAFE CONDITION WHICH WAS CLEARED BY A ’DRIVE CLEAR’ COMMAND 
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263 OR A DCL RELATED ERROR WAS DETECTED. REFER TO THE DISPLAYED 
264 REGISTERS FOR EXPLANITORY INFORMATION. 









° + CONDITION HICH COULD NOT BE CLEDRED. BY A Dat Ve CLEAR R* COMMAND. 
eee festIn 0 a DEVICE CE WILL BE ERRINATED AND THE PROGRAM WILL 
270 
558 » PARITY Y ERROR GMILE 1 EHILE FesuiN a OR DRIVE eucy GLEE es : VEOUSLY 
Be BONDITION Ts CET 1s BETECTED. ea: hiegaiaet nee anni alee 
275 






276 9. 'UNCORRECTABLE MASSBUS PARITY ERROR’ - THE PROGRAM HAS TRIED 
77 3 TIMES TO es OR WRITE A REGISTER AND A PARITY ERROR HAS 
578 OCCURED EACH TIME. 


7. RESTRICTIONS 
BECAUSE AN ALIGNMENT DISK PACK IS USED, THE eno B WILL NOT CHECK 
HEAD ALIGNMENT ON A DRIVE UNLESS THE HE DRIVE IS WRITE PROTECTED. 

8. PROGRAM DESCRIPTION 


8.1 VERIFICATION MODE 


THE PROGRAM CHECKS HEAD ALIGNMENT AT CYLINDER 245, HEADS 0 - 18, 
ar CYLINDERS 400 AND 4, HEADS 0 AND 18. AND REVER® IES ALIGNMENT AT 


I 
TOR W es NOTIFIED IF ANY 
OUT St bet erp enent 6 BY MORE THE T. 

HEAD ALIGNMENT IS CHECKED IN THE FOLLOWING MANNER: 

1. OFFSET THE POSITIONER TO +1200 MICRO-INCHES. 

2. STORE THE SIGN CHANGE BIT. 

3. MOVE Thc POSITIONER IN THE OPPOSITE DIRECTION IN 25 MICRO-INCH 
INCREMENTS aL THE SIGN CHANGE BIT CHANGES VALUE. STORE THE 
OFFSET VALUE. 

4, OFFSET THE POSITIONER TO -1200 MICRO-INCHES AND REPEAT STEPS 
2 AND 3 ABOVE. 

S. AVERAGE THE TWO SIGN CHANGE OFFSET VALUES AND REPORT IF THE 
SELECTED HEAD IS MISALIGNED BY MORE T 


+ OR = 150 
ph Lad FOR CYLINDER 24S OR + on 350 MICRC-INCHES FOR 
CYLINDERS 4 AND 400. 


Savi iit laiicicei tatu p ant atit tab tad ot 


eer es 
DONO CW 





REPEAT THE ABOVE SEQUENCE FOR ALL HEADS AT CYLINDER 24S AND FOR 
HEADS 0 AND 18 AT CYLINDERS 4 AND 400. 
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319 8.2 ALIGNMENT MODE 

320 THE PROGRAM MAY ALSO BE USED TO PROVIDE HEAD SELECTION FOR DDU 
3el CONTROLLED HEAD ALIGNMENT. WHEN THIS MODE IS SELECTED, THE 
322 PROGRAM WILL PERFORM NO ALIGNMENT CHECKING - ONLY THE REQUESTED 
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“Bee AD IS SELECTED IN THE DC HE ACTUA GNMENT MUST BE PERFORMED 
24 USING he cL anne METER bi TH THE DDU (0 BEL) WHEN (seb IN THE 
325 THE PROGRAM PROVIDES HEAD SELECTION WHICH IS NOT 


PRESENT IN" THE’ ODU. 










seg 8.3 RANDOM SEEK UTILITY 

330 i. A een conraie A UTILITY es gh As I 20, mit 
Ee: ALLouS TRE OPERETOR TO, ERERCYSE IME READ ASSENELY OM de BUMP dere 
an ; 

ce THE RaNbon SEEK UTILIW TS ¢ READ ALIGRMENY. 16. RE-VERIF TED 
337 AT THE COMPLETI NE RANDOM SEEKS. USE OF THIS ROUTINE DOES 

338 NOT REQUIRE EYeLING. mt THE DRIVE AND REPLACING HE ALIGNMENT 

333 PACK WITH A WORK PACK FOR THE HEAD SHAKE DOWN 


PROGRAM LISTING 
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THIS PROGRAM WAS ASSEMBLED USING THE POP-11 MAINDEC SYSMAC 
47 PACKAGE (MAINDEC-11-DZQAC-Ae). 


Ses, 


474 SEELFLLLLLLLSLLLLALLELSARALLLALAAFLE RELA LAE LELSRARALL LALLA ELELELER 


475 13 OPERATIONAL SWITCH SETTINGS 
476 SER ARSE AEA SEE AE EAE REE EEE RE REE REE EEE EERE EE EERE EEE EE 


478 14 


479 SWITCH USE 
481 1S HALT ON ERROR 
13 INHIBIT ERROR TYPEOUTS 
483 9 LOOP ON ERROR 
484 e CHECK ONLY THE SPECIFIED HEAD 
48S 1 LOOP ON THE CURRENT HEAD 
a 0 TYPE ALL TRACK CENTER VALUES 
488 JHHHHHHHHHEHBEHHB EHH HHEHEHHEHHHEHEHHHHHHEHHHHEHEHHEE HERE 
489 24 BASIC DEFINITIONS 
nt 3 33 EOE Ee a ata 
aes 26 INITIAL ADDRESS OF THE STACK POINTER ### 1100 ##% 
de 37 GENERAL PURPOSE REGISTER DEFINITIONS 
me | 49 PRIORITY LEVEL DEFINITIONS 
498 $9 “SWITCH REGISTER” SWITCH DEFINITIONS 


87 DATA BIT DEFINITIONS (8ITOO TO BITIS) 
BASIC “CPU" TRAP VECTOR ADDRESSES 
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one ne 
33 3 gE 8 A 2 A A A a a 
132 ALL UNUSED LOCATIONS FROM ; ~ 776 CONTAIN A". +2,HALT” 
SEQUENCE Po CATCH ILLEGAL T RAPS AND IN TERRUPTS 
LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
3-39 36 9 9 J 9 9 9 9 A a 
STARTING ADDRESS(ES) 
JHHISHHHHHH HHH HIHEHIHHHHHH EHH HEHE 
143 JHE HEHEHE HHHHHHHHHHE HEE Eee 
JEHHEHBHHHEHE HEHEHE HHIHHHHHHHIHHHHHHHHHHH HHH HEE 
JHB HE HHEHHHHHHIHHHHHI HEHEHE HHIHIHIHHHIEHIHE HEHEHE EE 


147 THIS ge ag oe be VARIOUS COMMON STORAGE LOCATIONS 
USED IN PROGRAM. 


190 LELELLLLLELELELLLLELELELLLELLLLELALALE SELLE ALLE LALLA LAER ELE LE 
LELFLLELELELLLLALELELALLLLLELLLLLLLLALAEEESLALALLALELERERLLLELEEES 

RPOY ADDRESS & VECTOR LOCATIONS 

LELFHLELLE LL LEELA LEAL LELELLLLLLLLAERESLESLALLLALALARAAEAA SESE ELELEE 

194 EE SESE EE SEE AE AE EAE AE EE A EH EE EEE EE EEE EE EE 
199 eee eset steer eles et iter ett rett reser titi titer iter ct cett ters 


a en aa ee 





SHERELALAAERRARELERLRELE MH EH EH EE EE RE 
203 THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCU 
THE INFORMATION ON TS oe TAINED ee NG THE INDEX NUMBER FOUND IN 
LOCATION st ._TH I YES WHICH ITEM IN THE TABLE I 
NOTE1: Figs IS By Y PERTINENT DATA IS (SERRPC). 
NOTE2: H ITEM IN T CONTAINS 4 POINTERS EXPLAINED AS 
209 EM ;;POINTS TO THE ERROR MESSAGE 
DH ssEOINTS 19 DATA HEADER 
DT 3;POIN DATA 
OF + POINT 1 THE DATA FORMAT 


SLLLAALAALALEREALLLALLLRERE LEA SAFAARAAREREREREREAS ALARA A REE RSEE 
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553 
SS4 
eee 313 
58 
5S9 
560 
561 
s m1 
564 
S&S 
ES 
S68 
5&9 
570 
$71 421 
x 
: 
z “a 
580 
581 
: 
S84 
58S 
S ‘ 
588 
3 
5 
532 
$93 
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KELALALRLALAALAL AS LAA RAAEALLRELALAE SES ARAELALLLEL ES EEEEEELELALE SS 

RPOY DRIVER COMMANDS 

LERAAARALALLAL LALA RAE REAA LAER LALA RELEASE RES LELALE RELEASE SEALERS LES 

315 KELALLLALLLLLLESE REAL ELARRALLAALALALS ERAAALAAERALSASEA EARLE LA LES 

339 KKLALALALALLLLLLLELELLLLLARALALALLLE ERE LLELALLALELAAAELERAL LES 

LALLAAKLASAELAELAAAALA LALLA RE LHELRRRAALAA LALA ASRALAAALA RESELL RAES 

PROGRAM START AND INITIALIZATION ROUTINES 

KLLLFLLLHLLLLERALLLAALLLALLL LEA AEERAAAALLL LLL EERE SLEARLLEL ELLA ALES 

346 KLELLLLLALLE FLEE Ec RELELLLE LLL ELE LELELRERLLELLLLLELARERELALLEES 

419 KLLELLLLLLLLALAFLEDRELAELLLELLAALALLA REE RALLLELELELALAAALLLES 

LLLLLELSLELELAAAFLALAL” LELELLL RELA ALLL LLLELLLELALARAA AERA SLE EEE 

SETUP TO CHECK ONLY THE SPECIFIED HEAD 

LELLLLLERELLLLLLLLE LELLLFAATELELALELAELERLLLA LEAL LELELALELELARELE 

423 SHHLE RELLLLLLELELELELELE RELL LALLA LLELEL ELLE LELAARELAAALELELE 

458 LLLALAELKLLELLEL ELE LEELA LALA LLL LE EAAERARALE REEL LEE ERALELES 

HELHLLHLLS LLLAELALLLAALELLLE CLAALELALL ELLE LELAAASA LAER ELE LES ELLE ES 

MAIN ROUTINE - CHECK ALL HEADS AT ALL ALIGNMENT CYLINDERS 

SHLALLLLLT FELL LLLLLLLLLLLLE LEELA EARLE LLLALLLEL ELE LRERELE SELLE EEE 

462 LRELLLLELALLERELELELLLERALLLEEALELE LEELA LALLA ALAA E REEL SELL ES 
a 

496 FELLLLLELLLLLALALALLELELELRAAAALELLLLLELELALALAAAERALERE REELS 

KLLEH LELELLLLELELELLLLLALALLELELLLLLLES RELA REARALAL RELEASE RELELELERE 

ROUTINE TO FIND THE TRACK CENTER 

LELLLLELELSLALLE LALLA RLSLELLLALLLLAE LALA RELA LARA LAAALEREEL SE SREE 

500 LLELLELELALAAELELELELLAAA ALA LEAALALLAL LALLA RALERLLL LE LALALL LEE 


S94 LLLLLHLLLLLELELALALALALALAAEAE LA LALA L LALLA LELELLEALALLAAALLLELE 
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623 


650 


891 





RKERLAARLLALALALA LE LLALRERARALELLLLSLALAREAEL ALLER ASL ELELAERAELALE 
ROUTINE TO SELECT HEAD FOR DDU CONTROLLED HEAD ALIGNMENT 
KFLLLELLARELAELALEAALELALALAALESAALAALLL ALLL ELE RAAELAELERALARERERE 

598 RELLLLLALLLAAAEAASLEAALLLA LASALLE LEAS RS LLE LLL LLAERLERAL REE LES 
621 KLELLLLLELLLAALE ALLEL ELLALLELALARAL ASRS LALELELARAALARALAEAELSES 
LLLLLLLELELELLLALALLLALELSLLALELEAELALLLELELELELALLLA LALA LE LELELE 
ROUTINE TO PERFORM 5,000 RANDOM 

JHE HHH HHH HHH HHH HE 

625 RELFLLLLLLLLSLELALALAALAA ALLL SELLE LALA RAAARALER SLES SELLE SELLE S 
648 KLLLLLLFLLLLLLELLLA LLL LLLELELALLLLLALAALLA ELA LELELLLALALAARAELE 
LLLLLFLELELLLLELLLALLLLAALLLELELELLLALEALA REEL ELLLLEL ELLER ARLES ES 

Cc ENTRY TO THE RPOY DRI 
LELLLLLLLLLFLLELALLLLLELLLLELELLLALLLLLELELELAELALLLALLLEEAAAALEE 

652 KELLLLLLLELELALLLALLAELELELE LEAL RERARA REA AELE SERS ELLE EAA ELEES 
683 REALLLELELS PHRLHLLELELELLELELAAALLARERELE RESELL LALLA RE RAEE 
LELFLLLLLLLLLLLELE REEL ELLLLLLLLLAAE RESELL LEAAARELERAAE REL LE ELLE LE 
SUBROUTINES 
KLELLLLALELLLELLLALL LALA LE LEE LLLALALLALARE LEE LELELELLLARL RELA RLEEEE 

687 FELLLELLLLLELELALLLELELLLLLLALALLAELELLLELELLLALALAA LALA LEASES E 
889 LEALARLLELLALE SELLE ELLA LEE ELALEE LEAR EEE AAA EL EERE EERE LEE EELS 
HELLLELLLLLLLLLELLLLLESLELELALLLLLLLELLLLLLALALALALLAAELERE LALA LE 
MACRO ROUT 
LEFLLLALLLLELSLLLLLLLLAALLALLELLLAELLLLELELLELLELALLLLRARELEELEESS 

893 RELLLEEESLLALRLE LESSEE ERAALRRLE ERLE ERLE LAAARERAR ELE REEE SEALE 
RO SIOn PLEGEER GENECRATCOY OMIT TN neaannananneenneee 
LELALLLLLELELLLELLAALALELLLALLLLLLRELELERELAALALLLAEEARELELRLRLLES 


897 mM INE oe PSEUDO RANDOM NUMBER GENERATO 
ETH A RANGE OF © 10 e¢433 


JSR —— PC, SRAND “$;CALL THE ROUTINE 
901 RETURN sRETURN HERE THE RANDON 
t ENUNBER WILL BE IN 
? SHINUM, SLONUN 
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By 940 RERLERERR AREA RRLRR ERLE RL LAL RAL ER AALARLAA RARER EAA ER RRR ERASE EES 






23 JEHHBMHBHHEEHEEHHHEHHHHEHHHHHHEHHHEEHHHEHI HEE HHH 
942 ERROR HANDLER ROUTINE 
651 JHE HHHIHHEHHHHHH HEHEHE HHH HHI EEE 


S44 THIS Tee INE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
Ber en R AND THE ADDRESS OF THE ERROR CALL 


a oot ad To aa IDED BY THIS ROUTINE ARE: 
Su3=1 ined? ERROR TYPEOUTS 
ERROR WN ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
972 JEHHEHHBHHHHHHEHHHHHHHEHHHIH HEHEHE HEHE 


















LELALAALLLLELALLLLLALLALLLLALLLLLRERALAELALAE LE ELLE EL ELE ELELAA EES 





974 ERROR MESSAGE ROUTINE |. 
JHHEHHHHHHHHHIHHIHHIHHIHIHHHIHIHHHEH HHI HHHHHEE 
976 THIS ROUTINE USES THE “I fSiren) TO DETERMINE 
BE Mehbtl He POORInAE ISUMTEN teens Tt 
1029 0 JHHNBIHHHHHHBIHHBHHBHHEHHHHHHHEHHBHHHHHHHHHHHEHHEHHEHHHHHHEEHHEHE 
_ ot gt ty teat eee ere 


JHHGHHHIHHIHHHIEHHIiHIHHH HHH HHH HHH HEHEHE 
1033 The ROUTINE MILL ThecRt A Nie MUGEN OF NULL CHARACTERS AETER A LINE 


Tie pour ES, hh, INE 


BE USED TAS THE FILLER cH 


RTs: EVLLE GRURING FRE SMSEETOR RAEN MERE MemUTED 


CALL: 
1) USING_A TRAP INSTRUCTION 
TYPE  ,MESADR ;;MESADR IS FIRST ADDRESS OF AN 





OR 
TYPE 
MESADR 
» crrte* * a TS TRUE {ON ;PUSH PROCE STATUS WORD ON 
JSR *STYPE ticArL TYPE ROUTINE 
SADOR >:FIRST ADRESS NRESSAGE 


REOCMBSRIRR EGE Baa total Sinise ent SRO B oe Mo ae 


ee ee ee ete 


5 
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1078 


1156 











1076 = AR SEE SESE HE SE HEHE RHE HEE HEHEHE AEH HE HE EE ERE 
JEHHBEHHEHBHEHE HEHEHE EHH HEHEHE HHH 
BINARY TO OCTAL (ASCII) AND TYPE 

JEHHHEHEHE HH HHHHHB EHH HHHH HEHEHE 


1080 THIS ROUTINE Is USED TO CHANGE 8 16-BIT BINARY NUMBER TO A 6-DIG 
SFYPOs-~-ENTER HERE 10 SetUp SUPPRESS ZEROS AND NUMBER OF DIGITS 


MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
S ;;CALL_FOR TYPEOUT 
-BYTE N 3 Nel TO 8 FOR NUMBER OF DIGITS 
;;L=TYPE LEADING ZEROS 
;;O=SUPPRESS LEADING ZER 


ST ve ce Seon TO TYPE OUT WITH THE SAME PARAMETERS AS THE 





STYPOS OR ST 
"Mov NUM, -(SP) ;NUMBER TO BE TYPED 
TYPON CALL FOR TYPEOUT 


fp atcataaa HERE FOR TYPEOUT OF A 16 BIT NUMBER 


MOV NUM, -(SP) ;NUMBER TO BE TYPED 
TYPOC CALL FOR TYPEOUT 


1154 FELLLLALALALALELALALLLLALELLLAALELELALALAALEALARALAAELELALLLLLEE 


JEU HHBHBHHHHHHHEHHHHHBHEHHHHHHHHHHEHHHHHHHHHHHHHHHHHE 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
JHIHHNHHHHHHHHHHHHHHHHHHHE 


RKLFLELLLELLKE RRL EEE EEE EEE EEE 
SO STG BSE fa AT PEEL A 8 


BEFORE | Baton Pi an ede \fiihus SIGN WILL BET 


NUM, -(SP) ;PUT_THE BINARY NUMBER ON THE S 
TYPDS $360 TO THE ROUTINE 


REFRELALAAARA RAE L ERLE LAA REALE LEA LARA AREA RARER EERE AER RE RARE REELS 
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1224 
1239 
1258 


MAINDE 
DERPNB. 
742 
743 
744 
745 
746 
747 
748 
es 
fee 
758 
733 
760 
761 
762 
763 
764 
765 
766 
767 
768 
763 
770 
771 
77e 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
. 
. 786 
787 
788 
789 
730 
791 
792 








02 


ee ee ee 
RELLLLLAKE RELA LRAERE LARA ELLA ALLELE RAAAAELAL LLL ALES RAERARALELELE LAS 


lee6 = THIS ROUTING WILL PICKUP THE LOWER SYTE OF THE “TRAP” ie TRUET 10 
AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADOR 
OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
GO TO THAT ROUTINE. 


ee Re TR ee 
LLERLLALLLLLLLALRAFLALALLLE RAE LARERALALLLA LALA LE RAL AL RAAALLAALELE 


1241 BUTS cae SONTAING THE STARTING ADDRESSES OF THE ROUTINES CALLE 


LALALEALL LLL LEEAELALALALLEAE ELLE REARAALELA LA LAL AS EAEAAR ALLELE LE RERE 


RH11/RPO4 (REV. 0.9) 
itttiiatititrtitiitrettitiitietittitttettiiiittitititittttittite 


1260 COPYRIGHT (C) 1974 
DIGITAL EQUIPMENT CORP. 
MAYNARD, MA 01754 
AUTHOR: * JIM LACEY 
1266 STORAGE FOR RHDS1, RHER1, RHER2, AND RHER3 ON AN ERROR “2” OR “S 
+2 = REAL 
RPERRS#+4 = RHER2 
46 = RHERS 
wath DRnE ToD PRL Tes Day We Ig an perorcagmahsees 
179 BRVACTCO IMPLIES DRIVE 12 ACTIVE KATH AN ERROR RECOVERY OPERATIO 
1291 ABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES) 
prio Weve Gee fe Sue 
IMPLIES DRIVE IS UNSAFE OR NONEXISTENT 
1305 TABLE OF DRIVE TYPES (ORVTYP=8 WORDS) 
YP WILL CBNTATH THE DRIVE TYPE OF ALL ONLINE, OFFLINE, AND 
UNSAFE DRIVES. IF A DRIVE IS NONERISTENT ORVTYP WILL BE ZERO. 


ane deve, it WIL WILL CONTAIN THE ADDRESS OF 
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~ 


Sate ett 


to 


+ 


PeslestesTeslesTeslesleslec] 
fe el ee ee ee ee on 
WONWUIL Wl 


EPAPRRINAA AAS AW iSiRisT AI 


Pe 
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1324 


1332 
1333 


1338 


1344 


1358 


1370 


1378 


1386 
1387 
1398 


1404 


1417 








pee WAIT KEYS (SRCHWT=1 WORD) 
THIS IS A ONE WORD QUEUE THAT WiLL ads A KEY FOR EACH OF 


THE DRIVES THAT ‘ae ent erie COMMAND FOR THE 1/0 
REQUEST THAT IS AT THER SR GuEST QUEUE 
EACH DRIVE IS ASSI IT, STARTING AT B70 FOR ORIVE O. 


RPOY DRIVER ACTIVE FLAG (ACTDRV=1 BYTE) 


ACTDRVOG IMPLIES DRIVER 18 ACTIVE 


SOFTWARE TIMER ROUTINE per ive FLAG (ACTSTR=1 BYTE) 
ACTSTR=0 IMPLIES SOFTWARE TIMER ROUTINE IS INACTIVE 
ACTSTR>O IMPLIES SOFTWARE TIMER ROUTINE IS ACTIVE 


ULDet Geb Inet TES RO UNLOAD. Corman 


ULDELe<O THPLIES UNL UNLOAD ae can IN Wart GUEUE 


LOOK AHEAD COUNT (LACNT=8 BYTES) 
LACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED 


SAVE REGISTERS FLAG (SAVEFG =1 WORD) 
areee a ese SAVE THE RH11/RPO4 REGISTERS WHEN THE 
S COMPLETED AS PER (DPB+14). 


sneered IPL ies SAVE The RH11/RPO4 REGISTERS, AS PER 


SEEK FLAG ( G=1 WORD) 
Por I TES WHEN M3 ore ADDRESS ISN’T IN THE WINDOW 
A TRANSFER STAR 


SERA IMPLIES DATA FRANSEER WILL DO IMPLIED SEEKS, 

TIMEOUT TABLE (TIMER=8 WORDS) 

THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 

DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD) 

DTUW<O IMPLIES NO DATA RWAY 

DTUW=4+N ( N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE 
ATTENTION BITS TABLE (ATABIT=8 BYTES) 

Pee Tone aren rains THE CORRESPONDING BIT TO EACH DRIVES 


RPOY TO RH11 “MASS CONTROL BUS PARITY ERRORS” (MCPE) ALLOWED BEF 
CALLING IT FATAL (MCPEMX=1 WORD) 
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1422 


1427 
1429 
1431 
1433 
1436 
1459 


1500 


1562 


1608 


1645 
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STORAGE FOR RPADR (THE FIRST ADDRESS (776700) OF THE RH11/RPO4) 
RPVEC (THE VECTOR ADDRESS (254)), AND RPVEC+2 (THE BR LEVEL (5)} 


MAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD) 
MAXIMUM DELTA DELAY IS 8 SECTORS (MXDLTA=1 WORD) 

MINIMUM DELTA DELAY IS 2 SECTORS (MNDLTA=1 WORD) 

MAXIMUM SEARCH FOR I/0 WINDOW IS S SECTORS (MXWNDW=1 WORD) 
DEFINITIONS OF THE RH11/RPO4Y ADDRESS INDEXES 

Furs ROUT ROUT INE MEL a3 TERME, A CH RPO4Y DRIVES ARE 
AVAILABLE FOR ESTING HE DRVSTA INDICATOR 

TO_ THE PROPER STATE F FOR E EACH ‘oRIVE 
mares THIS ROUTINE CALLS DRVINT 


JSR - PC, RPINIT 
TURN 


Bee He PETES. SPEDE TET OIE Bh Ee 
IS SET 70. A "1". THEN MOL, DPR, DRY, AND W ARE CHECKED TO 
INSURE THEY ARE ALL ON A “1. AND DEPENDING ON THEIR STATE, 
DRvSTA IS SET TO THE PROPER CONDITION 
Cn ao 
JSR RO, ORVINT *CALLED BY A A SER 
RETURN “ERROR OCCURRED (PARITY) 
RETURN2 NORMAL RETURN 
REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 
JSR RO, a8RPO4 ;CALL THE RPOY DRIVER 
PNTADR “ADDRESS OF POINTER OF DRIVES PA 
RETURN RETURN HERE IF QUEUE IS FULL 
RETURN RETURN HERE IF REQUEST IS IN QU 


Ge TIAIZER-CALLED FOR A PARTICULAR DRIVE 
MOV #ORVNUM, Rl ;ORIVE NUMBER TO Rl 
;SETUP A COMMAND 


ISR PC, OPT 
COMMAND INITIATOR 

MOV #DRVNUM, Rl ;DRIVE NUMBER 

MOV #0PB, Re’ j ADDRESS OF DPB 

JSR PC,ct? s¢1?= CI1,CI3, OR CI4 


cee TRANSFER 
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DERPMB.P11 
900 
301 sCIZ=SEARCH REQUESTED BY DATA xF 
age -CI4=NOT DATA TRANSFER 
04 1830 90k AHEAD ROUTINE 
e my deeene™ Bae oe 
ana JSR RO,LA iGo Weer fe WINDOW 
309 RETURN * ERROR 
RETURNE START A SEARCH 
RETURNS :START A DATA TRANSFER 


1873 INTERRUPT SERVICE ROUTINE 
1887 TRANSFER DONE ROUTINE 
1914 SPECIAL CONDITION ROUTINE 
2078 POY TIMER ROUTINE 

CALL 


10.0.0.0.0.00000 
= bb 2 bo 2 be he he 
OM ICM.M. UN £CWwi-3 


§20 
921 MOV aTIME,-(SP) sELASPED TIME IN MILLISECONDS ON 
ace JSR RO, RPTMR CALL RPOY TIME ROUTINE 
ge4 2104 SOFTWARE TIMEOUT ROUTINE 
926 CALL: STO 
927 MOV #DRVNUM, R1 ;DRIVE NUMBER 
928 JSR RO, STO CALL--DRVACT MUST BE NONZERO 
323 RETURN 
2169 ROUTINE TO READ A RHII/RPO4Y REGISTER 

JSR RO,RD.RP :GO READ A REGISTER 
934 INDEX 3REG. INDEX FROM BASE 
935 ERRADR RROR ADDRESS--PROCESS ERROR ST 
936 AT THIS ADDRESS 
337 RETURN *CONTENTS OF REG. IS ON THE STAC 
333 2212 ROUTINE TO WRITE A RH11/RPOY REGISTER 
941 MOV DATA, -(SP) DATA TO BE LOADED ON THE STACK 
ate JSR RO,WAT.RP “CALL THE ROUTINE TO LOAD(WRITE) 
gu INDEX INDEX OF THE REGISTER TO BE LOA 
944 ERRADR ADDRESS TO S210 RETURN TO ON AN ERRO 
aH TURN “ERROR FREE 
a7 2256 ROUTINE TO SAVE THE RH11/RPO4Y REGISTERS AS PER OPB+14 
gug MOV #DPBNUM, R2 ;DPB POINTER TO Re 
950 ISR PC, SVRHI1 SAVE THE DRIVES REG’S 


& 


| 


BERRIES ETE 
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9S2 

953 2284 

= 

957 

958 

on 2305 

961 2359 

S62 

ae 

365 2383 

965 

967 

968 

969 

970 2395 

971 
2417 
2433 
2450 


SESSRSBHaseees esses pepeeneecescesees 





isnererendeitniinnesnnee: 
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ROUTINE TO SET THE INTERRUPT WITHOUT GETTING A “TRE” 
MOV #ORVNUM, RI sDRIVE NUMBER TO RI 
We aE PFT By 


QUEUE COUNT 

ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 
— JSR PC, CLRQUE 

EMPTY THE QUEUE SPECIFIED BY RI 

CALL 


MOV DRVNUM, RI 
JSR PC, EMPTY 


ROUTINE TO PUT A REQUEST IN QUEUE 

MOV #ORVNUM, RI 

MOV #0PB,Re’ ORESS, OF PARAMETER BLOCK 

JSR RO, DRVGQUE 80 PUT REQUEST IN QUEUE 

RETURN RETURN HERE HERE IF QUE Ue _1S FULL 

RETURNE *RETURN HERE IF REQUEST IS IN QU 
ROUTINE TO GET THE “DPB” ADDRESS OF NEXT REQUEST IN QUEUE 

MOV #DRVNUM, R1 ;DRIVE NUMBER TO R 

JSR PC, GETREQ 360 GET THE Request 

RETURN ="DPB" ADDRESS OF THE REQUEST 
tpe=0 IF NO REQUEST IN QUEUE 
ROUTINE TO “POP” THE REQUEST FROM QUEUE 

#DRVNUM, R1 ;DRIVE NUMBER TO RI 


MOV 
JSR PC, POPQUE *CALL TO REMOVE REQUEST 
RETURN *R2=ADDRESS OF DPB REMOVED 


;ORIVE NUMBER TO R1 


ROUTINES TO SAVE RO-RS AND R1-RS 
ee 2 sat, 

BETURN : ;RO-RS IS ON THE STACK 
CALL: “SAVRIS 


JSR RO, SAVRIS 
RETURN ;R1-RS IS ON THE STACK 


UPON RETURN FROM SAVROS AND SAVRIS THE STACK WILL LOOK LIKE: 
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QO900000000 


0 6 eh ae 
WONMUIC Wl-O 


+ + b— & ~~ bb 9 ~~ b= b= 9 9 -= & © B= & = & =~ b= po B= 9 -o = e 


Piva tae tina ininiaten nist eisi aims 
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02 


+02 R4 
2467 TOP FS 
2478 ROUTINES TO RESTORE RO-RS AND R1-RS 
CALL: GETROS 
JSR RO,GETROS 
RETURN ;RO-RS HAVE BEEN RESTORED 
CALL: GETRIS 
JSR RO,GETR1S 
RETURN ;R1-RS HAVE BEEN RESTORED 
2498 pete t treet ett t ett ttt titi tit ttt ttttttttttttitttttttttitttitt 
eee see eet ee tte sett t tt ttt tt tt tttt titi titi titi ttt tt tttts 
DATA PARAMETER BLOCK 
eee titi t ttt tt titi tt ttt tt tt ttt t ttt ttt ttt ttitettttttsttttite 
2502 reeset rete ett ttt ttt tts titi ttt titi ttitttttttittttttttiitiitt 
2557 RHEE EF ERLE ELL EA EEA EE FE REE RE LAE ELE SELES EYES ES EE ERR AE REL SELES ER 
eee esi tte ett itt iti test ttt itt t siti t ttt tittttttttttttttitttitl 
reset tt tert tit ttt ttt ttt tits titi titi ttt tttttttittttitttttttttt 
2561 reeset es eee tite ti tet iti t titi tii ttttttittttttttttttttt ttt! 
2591 Peete eesti sett estes tite t ttt ttt t ttt ttt titties ttt ttt 
yn gS t+ cease sieta marae cameraman: 
pee eet t it tet tite tet e ttt ett testi ttt ttt ttt ttt ttt ttt ttt tite! 
2595 peer ete titi i tiie iti ttt ett t ttt itt ttt ttttitttttttttitttt 


2698 SKLLAAAALALERERELAEAALLLALA LEA ALARA EEAALA LALA L ELE RA REALL LLL EES 
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DERPNB.P1) 
1833 
1 SEPHSESSRELESHE SESSLER ELELF REFRESHES SSE EEESSLESLELESSSASEFFESSSSSSE 
1053 2700 MESSAGES 
] SFSPEPSEREAFSELESSREESESESSSRSSERESEAERESSS LESSEE LS SESRS SER SSS SEES 
1 
1054 ere FELESESSELELSRELESESSSSESSASSESLE ES EFA SSSESSFSELESSSLSSESSSES 
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a 
eee 


TITLE MAINDEC-11-DERPM-B 
s#COPYRIGHT (C) 1973, 1974, 1975 


“er 
;SPROGRA BY C. HESS 


S#THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
;#PACKAGE (MAINDEC-11-DZQAC-Re). 





O&S ;% 
Ob6 000001 $tN=1 
OS 
hee  SSTTL OPERATIONAL SWITCH SETTINGS 
38 :# SWITCH USE 
071 :  j$ eewreee erent Ee seer owm ene eer ee 
# 1S HALT ON ERRon 
3% 13 INHIBIT ERROR TYPEOUTS 
:# 9 LOOP ON ERROR 
3% 2 CHECK ONLY THE SPECIFIED HEAD 
3# 1 OOP ON THE CURRENT HEAD 
3% 0 YPE ALL K CENTER VALUES 


.SBTTL BASIC DEFINITIONS 
-#INITIAL SS OF THE STACK POINTER ### 1100 ##* 
init hoe 


EOUIY for’ Score OTe TENTION OF ScObE kAct 
pee OTaeE° . + RBCESeOR uetton 

FOUIV PS.PSu 

eine fete. Ta een ETT EREGET BEQUEST REGISTER 
SWRe  oTcH +) REGISTER 

DISPLAY=SUR 


s#GENERAL PURPOSE REGISTER NITI 
RO= “0 rT GISTER 


Ea geet ci 


fe a eS 


: ld oot ch edo cd echt al at ad ad ed ce 
PERPEaeUeA Be 


Be ceecrin eer T eri eihertl iti ti il Sh EER FARA. 


BOVFREBR=—B 





Poh 6b + O-2 b= Oh 0 & 2G -—- & 2 hs 


-¥PRIORITY LEVEL DEF INITIONS 

PRO: g is Priontry FEVEL ¢ 

Pre ipo Heaton TY VEL t 

PR3= 140 : PRIORITY LEVEL 3 

PR¥= 200 ssPRIORITY LEVEL 4 
16 PRS= 240 >:PRIORITY LEVEL § 


a ee ee oe ee ee 


. Y LEVEL 6 


;;PRIORIT 
s;PRIORITY LEVEL 7 


03 
SHITCH REGISTER" SUITCH DEFINITIONS 


D 


3U9 
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340 


RPE= 
PR7= 


ll E7732) 
TONS 


Yl 
FINIT 


BASIC DE 


“MUM TiINNE 
oe ee en rae poe pe ee ery 


MAINDEC-11-DERPN-8 





DERPNS. P11 





PEE b EEE Et fin 


Bseseecce.o. | Seauvedtas 
aA? a oe 08 8 oe 00 00 00 08 08 08 8 pine 
pace eg sue segtaaaaaasaas 


Sosa 


INITIONS (BITOO TO BITS) 


Seer eB cca: 


Fhe ae Buh eae 


br RRR ee 





Cor .0mnrMcu 
a er 


S8S8SSS3 


a rat 





TU—-OMOOMNnOOOMD 


22> 222 > 


SoSSasaaaaaa 


0 4 4 4 0-4 4 0 0 0 0 0 0 0 0 La a 
*MODOOMOMOOMOOOOOMOMMD 


EEN cos cesescee 


NBUUUOGUUUBMAMO Mam aes se so FF ee FF RUN BOSS DBD 


con hat ten hem bet hen hee Lae hak lee hae hah hom keh hot hae han ban ham heme ham ham Lam hans hers haan hath leak ham, Kens hem, heme. Ton, hare, Ken Lome Kee Nene Tone Tone, Nene hee Dene Nn on haem kore hare Fee Lee hon hee hee Dee Dee Dee) 
Som Rea Kee teat hee heme Kee Keat Kom Lom Koen Ket Kam Koon on hoe Rok oe oe ee re Doe oe oe op ee ee Te eee ro ree ee ee ee ere ere ere ree! 


re ne re es ee a ee we ee 
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Bt fe bh ps Bo ho = 


QRRLORHSSSVERZGRH SIAN AZINASSSG 


20-2 b 2 & = B= B= Bs D2 Bs h—2 & = + & 2 Hs Bh -2 = hp & oH om 2 Ho 
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000000 
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BASIC DEFINITIONS 
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“ESUIY BL TOO TA 

jxBAsIC “CPU” TRAP VECTOR RODRESSES 
= 4 TIME OUT AND OTHER ERRORS 

RESVEC= 10 $3 i RESERVED AND ILLEGAL INSTRUCTIONS 

Tetees i trace tT TRAP 

gP 14 { |BREFKPOINT TRAP (BPT) 

puaver= s4 33 i BNET SUTPUT TRAP (IOT) ##SCOPE* 
bd 


baa ATOR TRAP (EMT) ##ERROR## 
Th KE TRAP 
Y KEYBOARD VECTOR 
TPVEC= it PRINTER VECTOR 
PIROVEC=240 ;;PROGRAM INTERRUPT REQUEST VECTOR 
-SBTTL TRAP CATCHER 
20 
7 FALL UNUSED Le ote FROM 4 - 776 CONTAIN A “.+2,HALT™ 
;#SEQUENCE TO CATCH GAL TRAPS AND INTERRUPT 
;*#LOCATION O CONTAI TO CATCH IMPROPERLY L VECTORS 
-SBTTL STARTING ADDRESS(ES) 
-=200 
eSTART ; JUMP TO STARTING ADDRESS OF PROGRAM 


IMP a 
JMP aseSTART {RESTART T THE PROGRAM - ADDRESS CHANGES TO 
;’ INIT’ AFTER PROGRAM STARTED INITIALLY 












1198 
1199 
1200 
1 
: 
1 
1204 
ise 
l 0011 
1508 BBL LBD 
at gr. 
isi Boribs 
121 001108 
ef 
isi L1G 
iste Polls 
1216 OO1LIS 
1217 001116 
1218 O01} 
en ie 
122 Lies 
sk 
ae 
iss2 Bet 
122m 001144 
1227 0114 
1228 00114 
l 001150 
1290 Pe 
ieee Bott 
1233 001154 
12m O011 
1235 O01] 
123% 0011 
1237 OO116N 
1 1166 
Be Bn 
1543 obi 
1545 botsop 
1244 
i 
1 
Ley? 
ise 
1251 o01202 
1252 001204 


DERPN- 
S 








scuuiiveceeeeeat: 


- 
uw 


= 








TARTING ADDRESS(ES) 
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5 HERE AR ARSE SEE ER EE AEE SEA ESE SEE SE AE HEE AR EE HEE HAE ESE EEE RE 
-S8TTL COMMON TAGS 


HRUSeB IN THe P 


soe 
TSTNM 


: 


: 


ne 
z 


z 


Bee 


-2=1100 


ROPER ERE cee 


en 


Pye 


NTAINS VARIOUS COMMON STORAGE LOCATIONS 


ROGRAM. 
SERONTAING Bree count 
3 | T NUMBER 


‘3 AG 
;;CONTAINS SUBTEST ITERATION COUNT 


tECONTAING SCOPE RETURN FOR ERRORS 
icgans (ae dra Bree 





* CONTA . ERRORS TEST 
CONTAINS PC OF LAST ERAGR INSTRUCTION 
3;CONTA fe ° * DATA 

*9AD’ DATA 


ONOO000--O0000000 


2 
oO 
J 

~ 
oO 


ae Pe OPE ay 


me 
fru 


i ReCIStE FOR DRIVER ERR CALLS 


en Ser 4: ge paella 


f GN Ghenee SIT T INDICATOR 
;Q1GN T ST 
;STORE THE SIGN CHANGE CODE 


QO0OO0OOKOOO0O000 «~ ~\.O~Fmvo 
~~ wa 
ys 
oe 
4 
4 aot m 
a 


> CONTAINS VALUE READ FROM THE REGISTER 
: THBLERANEE FOR PRESENT CYLINDER 


ALIGNMENT 


5 HEHEHE 
-SBTTL RPOY ADDRESS & VECTOR LOCATIONS 


; LELELLALLLLLLALLLELLALALELALLLERAELE LALLA RARALARRLAERAARELALERAE 


47700 ;RHL1/RPOY UNIBUS ADDRE 
4 ;RHL1/RPOY VECTOR ADORE 


SRPADR: 
SRPVEC: 


- WORD 
« WORD 











“GTOReD FOR ERROR MESSAGES 


Tay oR SETI BHRG”® SOL Pe = 





5 RERALALRAS ERLE RRL AA LAS ERA R ELAR AAR AARAA ALAA ARAL RARER RE ARAL ES ES 


-S8TTL ERROR POINTER TABLE 





pers, Meo coats THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
i ation SITE ng. THIS, NUMBER sf DIcATES W WH cnt ITEM A THE TBBLE IS PERTINENT. 
ciel "Ye sitena 18 0 PC). 


ONLY PERTINENT DATA IS (SERR 


EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
+ POINTS TO THE ERROR ME 


015200 


ce 


8888 
Sues RBS 


- = 
B88 
Pb babe 
Ra 
— 
w 


a OS 


_— 


8888 
£ 


De be Be 


Bis  Faee 


aaa 


; RESERVED 





LPOINE 19 18 THE at para HEAOER = 


DATA FORMAT 





; ILLEGAL RH11 INTERRUPT 


: ;UNEXPECTED ATTENTION DETECTED 


DATA POINTER 
;DRV-DEC, REG=OCTAL 


;MASSBUS CONTROL BUS PARITY ERROR (SEEN BY THE RH11) 
;DRV ADOR OF REG CONTENTS 


ILL OCTAL EXCEPT ORV 


Ts ELT Ala =O BF NE HOH 


EI LD 


sATTEN FROM AN OFFLINE OR LNAVAIL DRIVE 
*DATA POINTER 
OCTAL 








HO3 
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ERROR POINTER TABLE 


-Pll 
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5 RERALARLAEASLERELAL ALA RS LALA ELA RELERAAL EAL LALLA ALES AA RELERAELES 


-SBTTL RPOY DRIVER COMMANDS 


5 RHLEAARELLAAALLLLLLALLELARELALALLLLLALALA LALA LL LE ERALAALLLELELE 


a 
oO 
a 


oO 
Gd 


Pap arare 


o 
—_ 


Pa Pet 


Lod 


READ HEADER & DATA 


7[JEHHHEHHHBHHBHEHHHHHHHHHHHEHEHHEEHHHE HHH HHH 
-SBTTL PROGRAM START AND INITIALIZATION ROUTINES 


STARTING ADDRESS = 
RESTART ADDRESS = 204 


; LERLLLAELLLELALLLALLLALELELLELLLELE RELA ALLE ELA REL ELLE LLLELLRLLE 


START: 





FEF eepeeeces fit 


3 


AG 
(R6)+ 
OS/KS, A 


setacK, SP rie a 
ar 


: 17esh3 SHINU 


5 LOCK INTERRUPTS 
bE RR IRST tbcA ON dar ieee 


ar ee 
"SENT VECTOR FOR ERROR ROUTINE 


We cron FOR TRAP CALLS 
c+e;LEVEL 7 


INIT RANDOM NUMBER 
: NWAGER GENERATOR 


ive SETUP INFO. 
;BYPRSS. SETUP SETUP Theo, 
‘deo ber GE TUP-RESSAGE 
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PROGRAM START AND INITIALIZATION ROUTINES 


£ 
2 


SESBR88888 : 
eESee nok 


S888888S8Ssss 
Be 


== 


SoS SaSSgE RRR EDOURE EEE e 
eee 


feeeeguannoneasssees 


Gat pet Ba has ee Ber fan fics re fat Fes fens Bo Pee fas Fa bo Bs Be? pe Ps me Ps Pe fs Be Be HD 


BSsssssssssssssssses 
WITswsssINT 


- 

i’ 

- 
= 
Oo 


005672 
005674 


000206 
001450 


000010 


002010 
002010 


002010 


177570 





INIT: 


5S: 
6S: 


18: 


4§: 
5 3 3 3 9 9 9 9 9 9 9 9 9 9 9 a a a a a 


-SBTTL SETUP TO CHECK ONLY THE SPECIFIED HEAD 


05-OCT-76 


sepa 


=z 
~ 
= 


a ee 


; 


coma 
a 

AS 
—Goe 


8 


SS 


8 


828 Pea 
ao 


% 
5 


sis 
=z 


- 
o- 


ier ret tote! 











;MOVE RPOY ADDRESS TO DRIVER 
tEVPAGS SHITCH FOR SETUP. MESSAGES 
Er BROcE acon BRTORTTY TO ZERO 


;CLEAR HEADER INDICATOR 
ask FOR DRIVE RSS TGNMENT 
DRIVE NUMBER 





* DRIVE TO PAR BLOCK 
; CHE pr 

*BR IF NUMBER OK 

. yey ON 

y 


cae, is 
er) RB 
8s 
25 : ce 
mine 
8 
8 


ALIGN, VERIFY, OR EXERCISE 


Gis 
: 


o 
- 
: 
8 


TO _EXERCISE ROUTINE 


THE INVALID CHARACTER 
Q ALL THE HAY BACK TO DRIVE ENTRY 
ee 


iTCH e SET ? 

;BR_IF NOT SET = CHECK ALL HEADS 
sCHECK ONLY SPECIFIED HEAD 
;OPERATOR ENTRY GOES HERE 


let lat ci 


=m 


8228 








z 
5 


o> b= = pe pe : 
££ 
33 


0 bh poppe pe 
BH cB cb poe coe 


£ 
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Steet 
BaRRPBROB 


2 bps bt Be Po fs 2 Gs fh = bn bo fs fh Be Ds Be mt ft 
— 


Oo he eee 
WONOUICWMe-O& 
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uw 
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il SETUP TO CHECK ONLY THE SPECIFIED HEAD 
5 RERAREAEAAALEAAAALE LAA L SLE LELA LALA LAA LALAALALARA LAA RAAELALLLLLEE 
1 915047 ONEHD: TYPE ENTCYL ASK FOR CYLINDER ADDRESS 
1 737 003642 JSR Fc, GETDEC iGET, THE CYLINDER ADDRESS 
1637 paste 1200 NOY 4360 TOLER sNOVE NITIA AL MENT TOLERANCE TO 350 U INCHES 
es Bpoees vere CMP #4 DPBSEYE ‘eer iW Or INGER = au 
14 BEQ 2s ‘BR IF IT IS 
026737 000620 013114 CMP #400. , OPB+CYL sCYLINOER = 400 
1417 BEQ 2s BR IF 400 


gooe=s 901200 MOV #150. TOLER E TO 150 U INCHES 
000365 013114 CMP ©. #245. |DPB#CYL ‘ 


Sy 
ae 
£ 
5 
rs 
Oo 
Bio 
“inh 
Con 
= 


: NDER 
2 : s 
1o4400 015131 TYPE BADCYL *REPORT INVALID CYLINDER 
102 1044 471 is: frre ONEHD tCTLINDER cue DEFAULT MESSAGE 
Basioe aa7a ogy {3 fove | aSuRO BppecyL SE YCINDER ADDRESS 
02114 1 915030 2S: TYPE ENTHD "ASK FOR HEAD NUMBER 
Obeled OoN7a? O0sbHe JSR BC, GETDEC GET, THE HEAD NUMBER 
0021 Olebs? 001162 MOV (SP)+, SHEAD *SAVE HEAD NUMBER 
Bpelag paso? Codec O01 Ge Sg Beir iris Te 
past 104400 015102 TYPE BADTRK *TYPE INVALID HEAD ADDRESS MESSAGE 
002146 000762 2s :TRY AGAIN 
002150 104400 014660 3S: HDZERO *HEAD O DEFAULT MESSAGE 
002154 005037 001162 CLR *CLEAR HEAD STORAGE 
002160 004537 4S: ISR RS. DRIVER DO A RECALIBRATE 
002164 000107 .WORD RECAL ‘DRIVER CODE FOR RECALIBRATE 
002166 004537 003252 ISR RS, DRIVER *SEEK TO THE SPECIFIED CYLINDER 
RBIS Be oman i? Fiber ee a ad 
Bose00 Bb0137 001524 JMP INIT ioe NEXT DRIVE/HEAD 
5 LHAALRLLLELALELALAELLLLELLLLE LALLA RE LALA LLLLALLELALAELLLLLEERES 
.SBTTL MAIN ROUTINE - CHECK ALL HEADS AT ALL ALIGNMENT CYLINDERS 
; LEHLLELLAAAE LEAL LEE LLLLLLLALE LALA ELLA LRLLLARLLAELELARALELALAES 
003252 CYLDER: JSR RS, DRIVER sRECALIBRATE TO RESET THE 
pay O00%S 013114 18: move Ret #CYL tCURRT AT CTLINBER sue ee 
Nee N00226 boieha “ MOV siep:’ OLER ALIGNMENT YoEtRaNCE ‘= 150 U IN 
003252 JSR RS. RIVER *SEEK TO CYLINDER 245 
000105 . WORD :DRI 
Ole 013 MOV #HEAD1, R4 : SS OF 0 - 18 HEAD TABLE 
oe EMD aus = th mcn «=m ge™ OF 
piers Spe se ea HOY wi00. ,DPBeC CHANGE ALIGN T TO 350 U INCHES 
OHS 37 003252 JSR RS, ORT sSEEK TO CYLINDER 400 
105 SEEK ‘DRIVER SEEK CODE 
G7? phase ne SEER AL TCHMENT AT ort eo 
012737 000004 013114 MOV #4; OPe+12 *CHANGE CYLINDER TO O04 
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DERPNS. P11 MAIN ROUTINE - CHECK ALL HEADS AT ALL ALIGNMENT CYLINDERS 


RS, ORIVER ;SEEK TO CYLINDER 4 


Bi eh ees 


:G0 BACK i CYLINDER 245 
s CHANGE ALIGN TOLER BACK TO 1SO U INCHES 


013172 MOV SHEA DRIVER, SEEK coo OF HEAD ADDRESS TABLE 


it i RECHECK ck ALTOweNT AT CYLINDER 245 
15164 ; TYPE 
0015e4 


001162 es NOV (4), SHEAD ney NTEAD AOURESS FROM TABLE 
Ok , OF TABLE 


002376 PC, CHECK iB THE ALIGNMENT 
BR 2s ;GET NEXT HEAD VALUE 
38: PC ; RETURN 
HEHEHE HHE HEHEHE THEE HEHEHE HHH HEHE 
-SBTTL ROUTINE TO FIND THE TRACK CENTER 
7 JHB HHBHE HEHEHE HEHEHE HEHEHE HHH HHHHE 


CHECK: CLR OFFDIR ;CLEAR THE OFFSET DIRECTION INDICATOR 
CLR ND ; SIGN BIT INDICATOR 
TIVE OFFSET 


on — 


a tas 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


eee 
Easy 


& 
Te 
ap 


T PARITY ERROR RETURN 
C5) + OPOHCOCE OFFSET VALUE TO PARAMETER BLOCK 
°9 


RRR 
= 


IF NOT 

KEEP ONLY THE SIGN VALUE 
;SIGN aenene 2 
; BRANCH IF IT DID 

CREMENT THE OFFSET ATTEMPT COUNTER 
t BRANCH IF OFFSETS COMPLETED 
;SEE wil DIRECTION 
sBRANCH IF FORWARD 


ReReae 
Rinse 


Se 


#97. .R3 MUM NUMBER OF OFFSETS 
#ENDTBL,RI NNING OF NEG DIRECTION VALUES 


SRaRRSBR SEIS IONS 
8 
ry 


oo0oo0No 
pee fat Bes ee 
















} 
ROUTINE TO FIND THE TRACK CENTER 
001166 CUM OFFDIR ;SET REVERSE DIR_ INDICATOR 


ye a a BevEREE OPFGEYS ue 


001174 cs: ADD PLUS, Re 800 $ 
001174 MOV ,PLUS oly ie Bebr 


ea) tia ~DERPN-8 MACY11 27(732) OS-OCT-76 15:01 ite 33 
DERPNB.P11 TRA 


1590 


ead Boseee 


1593 


002556 
002S70 
ie Se 
ie fen 
ee 
ee 
002626 


mS 


7 


000001 177570 IT #SW0, SWR : F 
i010 BeOS iBeeneH TF iT is 

jegq Oey iSce TF Ve YErbaSHTIVE. 

133 mati & R2 IRE COMPLEMENT VALUE 

1604 923702 001200 CMP TOLER, Re ice Ut 18 TRACK K CENTERLINE WITHIN TOLERANCE 
1603 104012 ERROR 12 REPORT the VERROR 

1604 002630 70 9$ *CHECK FOR LOOP _ON ERROR 

1605 002632 O1 6S: MOV Re, -(SP) ‘SAVE TRACK CENTER VALUE 

ies Geeree ergs, rie erro 

1608 OO02642 104400 014463 . TYPE HEADER “TYPE THE HEADER 

1609 OOgEME 012737 177777 OO1164 a MOV b-1, TOPLN *CLEAR THE INDICATOR 

1611 002654 013746 001162 “MOV SHEAD, -(SP) :;SAVE SHEAD FOR TYPEOUT 

1612 002660 Otte TYPDS : : 260 TYPE--DECINAL ASCII WITH SIGN 

1613 O0ce662 013746 013114 MOV DPB+CYL,-(SP) ::SAVE DPB+CYL FOR TYPEOUT 

1614 109410 TYPDS 2260 GPE DECIMAL ASCII WITH SIGN 

1615 ee Sai i 001174 MO PLUS, -(SP) SAVE PLUS FOR TYPEOUT 

1616 O0eb74 104410 pant Tyeps aed ::G0 TYPE--DECIMAL ASCII WITH SIGN 

iit Bre tes ls ge igen. csr SEF pee ance 

bed 002710 036737 100000 177570 BIT #SU15, SUR HALT IF ERROR ? 

1 os: HALT HEAD ust TYPED OUT OF TOLERANCE 
i623 oie Ose? 37 177570 7S: git wSH, SHR sat Ts cbse op a tol 

1 te RT PC : 

1PSe pret 5 rine 002376 J CHECK : HEAD AGAIN 

1627 b0e740 032737 OO0001 177570 28S: BIT SHO, SWR 5 CHECK SWRO 

1653 Soe7eB 104013 ERROR 13° tBEPORT’> 1200 ERROR 

1630 002752 000417 4 BR 9 SEE IF LOOP ON ERROR 

te Se rey 013746 001162 “MOV SHEAD, -(SP) ;;SAVE SHEAD FOR TYPEQUT 

1633 002760 10441 TYPDS GO TYPE--DECIMAL ASCII WITH SIGN 

1634 O02762 01374 013114 MOV DPB+CYL, -(SP) i Cave DPB+CYL FOR TYPEOUT 

1635 002766 104410 TYPDS *:G0 TYPE--DECIMAL ASCII WITH SIGN 

163% 002770 104400 O1y4s4 TYPE »TOOLRG j-2ie00 U INCHES’ MESSAGE 

1638 ae 193999 100000 177570 BIT SW1S, SWR *HALT IF ERROR ? 

1ee3 BOSttB BOnGD mT OF EE aD JUST TYPED OUT OF TOLERANCE 
1641 12 032737 OO01000 177570 9S: BIT #SW9, SWR SEE IF SWITCH 9 SET 

ibe 901749 BEQ 7§ F NOT ser GET NEXT HEAD 

164 137 002376 SET, DO THE HEAD AGAIN 

1644 003026 005137 001170 10S: COM BITIND THE SIGN BIT INDICATOR 

1645 002032 042737 077777 013154 #77777 , REG+RHOF HE T 
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7? 013154 001172 MOV REG+RHOF , SINCNG ;STORE THE SIGN CHANGE BIT 
ies? Bpaoe | sbeeee OOS ' 
He $ RELA KALHAA LASS LA FLL AA RARE LE~ RHA RE KRLE LAA AK KLRELEAS RRA KALLE ERK KE 
1681 »SBTTL ROUTINE TO SELECT HEAD FOR DDU CONTROLLED HEAD ALIGNMENT 
i bey 5 LELRALSRRLAAALLE ALLL LAE LLLE LLL ALAA LEL EAA RE LRE LARA RAE KKALAELEELSES 
1655 oo20s0 1 14633 DDUALN: TYPE ALIGN ; TYPE +84 
1656 003054 1044 14762 TYPE 4 ’POSITIO AeY ar 245’ MESSAGE 
1657 003060 3127 S 013114 MOV #245. OPB+CYL * LOAD Ct TRBER ADDRESS 
16 003066 7 003252 JSR RS, DRIVE D0 A RECALIBRATE 
16 107 .WORD «sR *DRIVER CODE FOR RECALIBRATE 
1660 003078 003252 JSR RS, DRIVER j SEEK To CYLINDER 245 
ti ' . 
ta pps ie pret 015030 1$: TYPE SEA THD OR EOR BK 
1663 003108 004737 O03642 JSR PC, GETDEC sGET, THE ENTRY 
1665 003114 Tees ooo022 CMP (SP), #18. ENTRY ONT Be GREATER THAN 18 
1665 003120 101403 BLOS) Ss 3 *BR IF LES 
1667 003122 00 o011S2 2s: TYPE SQUES -TYPE A QUESTI 
1668 003126 5 BR TRY AGAIN 
ier testy uumre USE ey SFO UP neon IO'Uen avr 
1671 posts rite 011776 FcR RO,WRT.RP *LOAD RHDA 
1675 eieytd Poreog pie sREGISTER ADDRESS PARITY ERROR RETURN 
1674 Sosie BpaRee BR 1$ *WAIT FOR NEXT HEAD EN FR 
1678 H PSL LE RL FELL SESE KFS ELE ERS SEA EERE EELS SES RE LSS LRA ERS ERE LES SS SRRES 
1678 .SBTTL ROUTINE TO PERFORM 5,000 RANDOM SEEKS 
i pa : RK SRELEREAL LSS LER EERE REL ELE RA RES ERA ERE L LR EER ERK RE LEER RE SRL REESE 
1682 003150 104400 O14644 RANDOM: TYPE EXER ;TYPE "EXERCISE? 
1683 003154 012737 011610 003250 MOV §S000. , SEKCNT OF SEEKS 
1684 003162 004737 004304 1S: JSR PC, SRAND ICYCLE THE RANDOM NUMBER GENERATOR 
1685 003166 013746 o04432 MOV SLONUM, -(SP) *PUT LOW DIVIDEND ON THE STACK 
le? Hele Gime ee my Deca ur Bieta ens SCE 
1688 ieee neg 003372 JSR PEAKOY :GET INDER ( CYLINDER ADDR) 
1689 003208 021637 013114 CMP (Spy DPBSCYL SEE IF SAME RANDOM CYLINDER AS LAST 
1630 O032l2 001003 BNE 2 *BR IF DIFFERENT CYLINDER 
1691 003214 062706 O00004 ADD #4, SP * ADJUST THE STACK POINTER 
1692 003220 000760 BR $’ : 
1693 ogseee 012637 013114 2s: MOV (SP)+, DPB+CYL * PUT ADDR IN THE DPB 
1694 005726 TST (SP)+ CORRES *THE STACK POINTER 
1695 003230 004537 003252 JSR RS, DRIVER 00 THE SEEK 
16% 003234 O00105 .WORD SEEK *SEEK COME 
1697 003236 005337 003250 DEC SEKCNT *DECREMENT THE SEEK COUNT 
1698 003242 001347 BNE 1$ *BR IF NOT DONE 
1699 b032e44 600137 o01Se4 IMP INIT *RETURN TO COMMAND ROUTINE 
1701 003250 000000 SEKCNT: .WORD 0 ;SEEK COUNTER’ 
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DERPNS.P1] ROUTINE TO PERFORM 5.000 RANDOM SEEKS 
1763 3 SESPSSEFFHERERLESSHHEDSLSES HERES SPIES SESE ESFEFIRSS EIS FFESFFEAELES 
is \SBTTL COMMON ENTRY TO THE RPOY DRIVER 
1708 s SSSSFKESSSSSLSFLSSSESLARAALESEEERELSFESLERSSRERRRARASAS ELSES ELSES 
1709 013104 DRIVER: MOV (RS) +, OPB+COMND s COMMAND CODE 
171 1S: SR RO, RPO4 sDRIVER ENTRY 
1711 ‘DATA TER BLOCK ADDRESS 
17] REQUEST NOT ACCEPTED 
17] 013120 2s: TST DPe+STATUS iSEE IF TE 
1714 001 BEQ $ :BR IF NOT 
1715 BM S$ SBRANCH IF 
1718 3$: RT RS ;RETURN 
171 oo0200 013120 §$§: 8] 88177, OPB+STATUS ‘DID THE ORDER TERMINATE 
171 3306 BN : F ID 
17 070000 013120 BI #70000, DPB+STATUS arth ATAL ERROR 
i I8 ees? ooNoOO 013120 art IT11,DPB+STATUS SERED UNCORUSETAOLE BARITY ERROR 
1355 5 O01 BNE ’  BRBNEH F 
1723 14 ERROR “FAT PARITY ERROR 
1729 001100 6S: MOV aSTACK, SP iRE THe POINTER 
i5Se pee Sulses 73 a SE UNECE SRECBUS PARITY ERROR 
1358 Aoosas oi pee * tO LOOP ON ERROR cHITCH 
1 1040 QS: il REPORT DRIVE UNSAFE 
1 és 3RE TURN ART 
1 1.30 9S: 10 sDRIVE OR DATA ERROR 
173) 001000 177570 10%: IT #SW9, SWR ‘LOOP ON ERROR 7 
1 1745 BQ 03S ‘BRANCH IF NOT 
1733 162705 000006 SUB #6,RS “CORRECT RETURN FOR LOOP 
1734 000742 BR 3S * RETURN 
1735 
173 
te 5 Fo LEESEREERELEERLHSELSS ELSA RE LER TES EREE RARE LEK SERA ESET EKERSR SES 
1740 .SBTTL SUBROUTINES 
is : EPETSEESERLSESESELSLSRSERGRZAE EARLE SHEE EERARA SEGRE ERELRERER ESSER 
1744 sLINK ROUTINE TO IVISION UTILITY SUBROUTINE 

| 1745 : ote ROUTE ALLO THE *SYSMAC’ DIVIDE ROUTINE 
176 : CALLING SEQUENCE TO BE useD 
174 
1 LINKDV: 
1 1O5Yb MOV —s- RS, = (SP) 33 RS ON STACK 
i { HOY OR (SP) + OLEH RS ON STACK 
ives 1 Ra’ ) HH RB ON er 
17a 1 R1,-(SP) 33 a ON STACK 
1 1 V -(5P) ts ON STACK 
yee TS poco CUtale cR OA (SP) ,RS sBIVISOR VISOR WORD 

1757 eyed nites co0020 av 20(SP),Re UPPER BTV EBENO WORD 

i 


nee 8 eee eee 








MATNDE 
DERPNG SUBROUT 
1758 003420 016603 000022 MoV 22(SP),R3 SLOWER DIVIDEND WORD 
1759 CLR RO CLEAR OTHER DIVIDEND REGISTERS 
176 64 JSR PC,M.OPID G0 TO THE DIVIDE ROUTINE 
1 34 O10166 RL. e0(SF) ; REMAINDER ON THE STACK 
1 ie R3,ec( SP) ‘QUOTIENT ON THE STAC 
1764 1 MOV (5P)4+,RO POP STACK INTO RO 
1765 1 MOV (SP)+,R1 ;;POP STACK INTO Rl 
1766 1 MOV (SP)+'Re ::POP STACK INTO Re 
176 ; 12603 MOV (BP) +,R :;POP STACK INTO R3 
1768 i MOV (5P)+°R4 ::POP STACK INTO RY 
1768 DOI¥SE 012605 MOV (5P)+°RS POP STACK INTO RS 
1 DO3460 O12616 MOV (SP)+? (SP) :MOVE RETURN UP THE STACK 
if Oo3462 000207 RTS PC 
1 : DIVISION UTILITY SUBROUTINE 
1774 : RO-R1 IVIDEND 
775 : R4-RS=DIVISOR 
ore : eT 1 4d peal OTyeTON 
778 : W aM PC,M.OPI 
780 A.DPID 840,-(SP) ;COUNTER FOR DIVISION CYCLES 
781 RY, -(SP) ty 
782 RS’ -(5P) +L DIVISOR TO THE STACK 
( *FORM NEGATIVE 


VERSION OF THE DIVISOR 


;PERFORM THE INITIAL SUBTRACTION 


Tins 1S A LONGER LASTING CARRY BIT 


‘(=2rT 
~~ nm 
O'S 


M.DP4O: 


AEST SSSIRAS 


IF NO © TEN AOD ELSE SUBTRACT 
CLEAR uP FOR Next TIME 


sn he Be as On hs Be he ae pe 2 ho Pe Bn fs ho Pe bas Bae bn Po bs hs Ho Ho 
=z F* 
YBREABSRRS 
— 
- pe 
r) 
te 
. wewewe 


BReese 


= 
— 
~ 


M.OP41: 


aa 
e 
~ 
pe) 
to 


"CARR 


M.OP4e: 
IF F 


SET 
ER Ger go 


a) 
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Soa teers 
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wo 
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xz 
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CORRT OR SOUR SOR 
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M.DP44: ROL 


M.OPSO: ADD 
RTS 


GETDEC: MOV 
1$: ROLIN 
MOV 


TSTB 


A228 35 30ST OSELSERRERT GAGS ON GBA 


M.OP44 
pare 


R4,RO 
R3 
#10,SP 


PC 
#6, SP 
PC 


;ROUTINE TO GET DECIMAL ENTRIES 
; RETURN IF CARRIAGE RETURN 


;ADJUST STACK BY 4 WORDS 


ENTERED 
OTHER CHARACTER ENTERED 


(SP),-(SP) 


te 


Ce ae ee 1 ae 
ee 

= 

Vv“ 

— 


Ht Fate Af 


+ 
~~ 
~~ 
8 
a 


—— oe 
+ 


oOo Saw ~ 
= 


-—O0-—-— 
5 
| on) 
~~ — s 
a 
= wo 
vo- 
S 


+2 IF 
60 TO "INIT’ IF CONTROL C ENTERED 


s PROv ite SPACE FOR FIRST CHAR 


AN asd | A, TOMGER FROM STACK 
Sabot UP TO BAD CHAR. 


Pe HERE 


: 

i 

ISAVE THE T 

SINGRENENT THE RETURN ADDRESS 

; 

5 

’ 

; 

* TRY 

ines eee Te PC 
ROL C ENTERED 





ma 


bo ps f= 6-2 2 hs 
eee R IRR Eon ees 


$3 & Po Bs ht a th ae Be Oh eo 
te 
& 


SRREON 


B 
sd 
wo 


Laue 


TEES 


Vo 


: 


Cho 


ae 


cic 188 8 Bp 


so 


B= Bb he hs Ft fe Be ee ee 
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ee 
oe 


8 
os 
= 
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See ee eres essere ree ress 
RR PIE CSPMRESREREM SC RES 
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RESESS 
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sTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
> sRDCHR SINPUT_@ SINGLE CHARACTER FROM THE TTY 
TURN HERE + ANORACTER 1S DN TOES TREK 


SROCHR: MOV (SP), =(SP) ;PUSH THE PC 
4(SP),2(SP) sSAVE THE PS 
1S: TSTB © aSTKS *WAIT FOR 


7A T 

MOVB b TKB.4(SP) 3 Y 

BIC 81C<177>,4(SP) :GET RID OF JUNK IF ANY 
RTI *GO BACK TO USER 


;THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


th ver 8 PE POLE 


“: 
® 
x 
2 


LL BE 
TERMINATOR WILL BE A BYTE OF ALL 0’ 


; 
SROLIN: R3,-(SP) . 
1S: 8 o) N.R3 eerie Te a 
2s: SSTTYINSS RG Bu : FULL? 
G0 TER FROM THE TTY 
(SP)+, (R3) : 
8177, (R3) He ft  RUBOUT 
) :15 HIS. THE FIRST RUBOUT? 
#’\,9S A BACK SLASH 
" b-1, (SP) 3SET THE RUBOUT KEY 


vesTtyin§ —ESTAGK EMPTY? 
:BR IF YES 
(83), 98 ane TYPEOUT THE DELETED CHAR. 


te iReaoer ? a 
#’\, 9S ;TYPE A BACK SLASH 
if (Ra) ; 1S conic oe 


,(R3) TER @ CTRL U? 
gently B "a ConTRoL “ys 
5 fy A 1g gVER 
9S 


: THE BUFFER AND LOOP 
sECHO THE CHARACTER 


biS, (R3)+ ;CHECK FOR RETURN 


335A BaoS"aSe = ASO eS aS IN ScR eens 








~ 
fas pe 


he ph 


Sear 


004. 


: 
: 
a 
: 
a9 
938 
: 
2 
: 


ERR RER PRS AR edad kab seal dupual alk 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
l 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 





= 
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8$: TYPE 
108: 


I 
9S: -bY 


Hts fot g 
SAYIN: “BCKG 
EVEN 


: FLLLELLLELELALELLALELELLAAELAEALALLLALEREALALAALALALLLASLERSE AES 


), (SP) 
4(SP} 2(SP) 
aSTTYIN, 4(SP) 
0 


0 
/tU/7¢15><12> 
gter<1S> «ler 


~SBTTL MACRO ROUTINES 


3 J HIE HEHEHE HEHEHE HEHEHE 
-SBTTL RANDOM NUMBER GENERATOR ROUTINE 
;#THIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 


; #I 

3 #C 

;* JSR 

* RETURN 
a 

SRAND: 

1S: 


CRRe Ree emarressesoos 


SHIFT COUNT 
‘ROTA NTO R 
SHAE Sey 8&2 *° 









sLOOP_IF_NOT RETURN 
CLEAR RETURN (THE 15) 
“TYPE A LINE FEED 

TT OREE 1St COOMASTER IN BUF TO CTRL C 

i CLEAN higout KEY FROM T STACK 

: T THE STACK AND PUT ADDRESS OF THE 
: FIRST ASCII CHARACTER ON IT 


; RETURN 
: Tonnes FOR ASCII CHAR. TO TYPE 


TeanineoR 


{RESERVE 4 BYTES FOR TTY INPUT 


ae 
es SE 











ee GO4 
Son MAU TTR Bi SO 









3s 


So14 INC 
“eos PP 
5519 a 
ae 
=o Fy 






=e 


Sista isis ae 


Me ten he ev 


SERRTYP pe P 
Ov AO, (SPD 





1982 004374 o0ss02 AUC BE ;;PROPOGATE C 
1354 — ebB fa; Ht AU DIGIT 
ig? HOV ORI’SHINUH = 
8 my ging = Re e M1 fe 
| 1931 Hoy (8p) RO boo Stace Ih NTO 20 
1983 INUM: "HORD 176543 Bs 
ie 5 PPOPETTTITeTeTTTTTt TTT TT ti tttiit tt  iititttt tit itititttt ttt 
1997 .SBTTL ERROR HANDLER ROUTINE 
te LE TO Ul hed RCE oe anes SPEC 
2001 #AND GO TO SERRTYP ON ERROR 
inh SWITCH OPTI BY THIS ROUTINE ARE: 
2004 INHIBIT ERROR TYPEOUTS 
cote ich ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
S08 SERROR: now , 2 = 
eat os age . TE THe Lag GO TO ZERO 
3 


TSTNN, Q8DISPLAY’ ; ; DISPLAY NUMBER AND ERROR FLAG 
oar i ci ag 2° Ee 
SITEMB STRIP AND SAVE THE ERROR ITEM CODE 
IT13, 08SWR 5 3SKT TYPE IF SET 
DeSERRTYP  3:G0 TO USER ROUTINE 


‘eet Ir contd TNUE 
;;HALT ON ERROR! 


; ; RETURN 
Pirrrriiitiiittitttiiiiitititttiiitiiititetiiiieeeecee ire rrns sg 
-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


M CONTROL BYTE" (STTENB) TO DETERNINE WHICH 
TAIN HS tae “ERROR TABLE” (SERRTB), 
ATE INFORMATION afin ite THE ERROR. 


;;"CARRIAGE RETURN” & “LINE FEED” 
3; SAVE 


SURESH an SRE! 


aniotisistaeeeend 7 Ge 


ass 





Oo 
— 
Ww 
— 
anh 


me Gee 


: 





fe 
~ 
— 
£ 


8 
to 
be 
ho 
o 


Ss 38 
-_ 


3 
2 


8 
& 


001153 


27(732) 
TYPEOU 


HO4 
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ROUTINE 
cLR RO ;;PICKUP THE ITEM INDEX 
SB 4s ANSI TEMB,RO 
BNE 1$ ss IF "Wee" eeote Hie“Eae JUST 
MOV SERRPC, -(SP) Be: sERaPS OR TYPEOU 
; ;ERROR ss 
he igs He gle ASCII(ALL DIGITS) 
1S: c 33 THE NOEX $0 THAT T MILL 
ASL A $8 WORK i ERROR { 
ASL RO 
Abb aSERRTB, RO + CORI TABLE POINTER 
feo Sg FEJCAu ERROR DEESAGE™ POINTER 
25 TORO $ ERROR MeSeace” POINTER 
; iVPE SCRLF Hictarat none FEED : 
3S: MOV tRO)+,4S > :PICKUP “DAT INTER 
BEQ cs >: SKIP 0 I 
TORO tie 
4S: : 0 *2"DATA PO GOES HERE 
TYPE SCRLF $5 CABRI RETURN” & “LINE FEED” 
SS: MOV Ri. -(SP) ;;SAVE RI 
HOV (RO)+,R1 ss PICKUP DATA TABLE” POINTER 
Efe 7ho)+, RO ek TA FORNET” POINTER 
6S: TSTB ss (RO) + *:"OCTAL” OR “DECIMAL” 
BNE 7$ $s F 33 
MOV Q(R1)+,-(SP) ¢ a(R1)+ FOR TYPEOUT 
TyPoc a 3:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
73: 
HOV 3(R1)+,-(SP) 53 SAVE Q(R1)+ FOR TYPEQUT oon 
8S: it (RL) He THERE AROTHER NUMBER’ 
OPE OCIS ti ype TWOC2) SPACES 
aS $0 
9s: MOV (SP)+,R1 ; RESTORE RI 
ns: e gon : H CaRm ace RETURN & “LINE FEED" 
RTS + RETURN 
11S: -BSC12 ya 3 TWO(2) SPACES 


Priitititititiitiiiitiiittiitiitiiitiitiitititiiitttiittti tits 


.SBTTL TYPE ROUTINE 
A PE ie 
FILL TERS REQUIRED. 


: 
ois: «Ge GRR Hie a WO She 


MAT 1 | deem MACY11 €7(732) 


YPE ROUTINE 


Pad 


001151 


Dbiis0 


174134 


bs 0 be f+ Fs 0 Bs bw hs 8 0 B29 0 Pan Bee Bs 0 Pew fe Bt pac Bs Pe be Pas Bs oR Bs ps Bt ps 


RSS ieee 


SHLFHESV-“SSBVKRZERHBSBVRRPOREB Sw snsow-SSOVERes 


tururururururururururororururufururururururururururururururufururururorururufrururururururururu 
Ob b= Bb BF = OB 8 Fh = = he 


— 


174126 


T04 
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;#CALL: 
;#1) USING A TRAP TRUCTION 
+ TYPE We SBOR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


;* 

;# TYPE 

? MESADR 

Ha) USING A JSR_INSTRUCTION 

3% MOV PS,-(SP) ;;PUSH PROCESSOR STATUS WORD ON THE STACK 


a t ETRST ADRESS OF MESSAGE 


STYPE: TSTB  S$TPFLG 331S THERE A TERMINAL? 
Ratt “ +E HF HERE IF NO TERMINAL 
BR 38 ‘i ehve 

1§: MOV rete A i] SAVE RO 

2s: HOVB those, ) ge onmeer eter FYpeD ONTO STACK 
BS fies HEE Hendin nT OF ME scx 
MOV (5P)+,R0 33 

38: a #2, (SP) ii RETURN PC 

cg: chee Stile (SP) $360 1 re FOR FILLER CHARS. ? 
MOV , (SP) He 8 Fi ER CHARS. “NEEDED 

mo Pe! re ate pee AML ED To TOPE TIPPS or stack 
JSR PC, STYPEC $360 TYPE A NULL 

STYPEC: Ferg oS TPS >:WAIT UNTIL PRINTER IS READY 
BPL STYPEC 

(SP), aSTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 


, eRAEEETEPESEOESS OEEEESUEEEEEEEEEEEEEERESEEEREEEEEEEEEOREORE 

-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

iS ROUTINE IS USED TO CHANGE ° 16-BIT BINARY NUMBER TO A 6-DIGIT 

TAL (ASCII) NUMBER AND TYPE IT. 

1 lies HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
" MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
TYPOS has aa FOR TYPEOUT 

“ere N bihst My § FOR NUMBER OF DIGITS TO TYPE 


M 
;;1=TYPE LEADING ZEROS 
;;O=SUPPRESS LEADING ZEROS 


ie TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
Na OR $T 


ty " MOV NUM, -(SP) ;;NUMBER TO BE TYPED 


TTT TT tts. pahz 









JO4 
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CELI -OERPMEENARY TO'OCTAL (ASCII) AND TYPE’ boC! PAGE '19 






















5 
is "Scabies mt’ 
i jHSTYPOC---ENTER HERE FOR TYPEOUT eee 
ee ;# * MOV NUM [OUT OF A 16 BIT NUMBER 
e187 0S02 ;* TYPOC »7(SP) ; ;NUMBER TO BE TYPED 
fl odes STYPOS: MOV, — 4(SP}, =(SP) tts FOR TYPEOUT 
; P «PICKUP THE MODE 
ie ED Hove eg a ?'LOAD ZERO FILL 
1 00S: Jey FOHOUE +! i SWITCH 
ae iL (eo eemree 
ie Hee fl RE wie TT eh 
AAG a a i eee 
17 RE coms Rove SaHODESI ENE TS wurcer 
Ae Oise ii7o4 esas ROO #5, RY Salead OF DIGITS TO TYPE 
Sima Dosis OOSO03 boobs HOVE $0 ies ; SAVE AGT LTT FOR MAK. ALLOMED 
sim Beis Gabe nov iachsRs ITO vie toeut rac 
172 05130 S061 a Te 2 HOLERR THE OUTPUT LORD. 
173 Obs { 2S: RO RS $SERTBTE tie INTO “Cr 
518i ils 1 ROL RS :TFORN THIS DIGIT 
e183 ne is 105397 pos244 3: RR 
tet OISISS ras 17777 Rte noe itera nS fed 
$5 pet Oooo Beg RS SiGeT a | 
188 O0EI poseo4 rt RY 3316 T F y hee: 
cigs Dosles Gee7u3 ononec so #2 | ebPoaeee THIS 0” 
1 74 DO004e 53: re the 3sDON'T SS ANYMORE 0° 
‘ i ; a’ [R3 SMAKE THIS D o’s 
ats hove 3,08 Hine Ra PoP ah 
. ’ 
ie fen fee ee Oe Se ey el 
i te Phe Es siBR IF HORE TO 00 
5133 12606 BR aS i FINGURE LAST 0 
15e03 sc 6 Oleh 3360 DO. THE lathe 
Fie om am =F aa ue 
Se OoseMi §=— 00 RY Daa ee ee 
1 O00 8S: BYTE C $s RETURN 
' tS SERNINATOR FOR TYPE ROUTINE 







04 


ro a a alan 


oose4e SOCNT: gL: 0 ;;OCTAL te COUNTER 


3 a, RE A Realise Vt A a Bh Se 

.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

sxTHIS ROUTINE IS USED To CHANGE A 16-BIT BINARY NUNBER 0 fe S-O1GIT 

SSRUMGER Pe Boetrive oR VE A SPMeE bn’ a Anus Sch WILL HE TYPED 
THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


y 

**BEFORE THE FIRST DIGIT OF 
t SREPLACED firth piel 
;¥CALL: 

* # MOV 


B 
bse 


NUM, (SP) : PUT THE BINARY ON THE STACK 
+ TYPDS : 3360 10'F ROUTINE 
STYPDS: 
010046 MOV RO, -(SP) ;;PUSH RO ON STACK 
10146 MOV R1,-(5P) PUSH R1 ON STACK 
10246 MOV Re, -(P) PUSH Re ON STACK 
1 MOV *=(SP) ; BUSH K3 ON : 
1 MOV RS, -(SP) $6 ON STACK 
1 020200 HOV #20200, (SP) ssSe! re SUITCH AND SIGN 
— . ::BR IF NeUT Is" Poe 


aa 
a8 


Ba 
“Um 
v 
= 
ra 
v_ 
— 


AIUAISSEAIUS ISIS SIA aS 





8 
SEE guE 
a 
Z 


Bnasa 
BREE 
c~-7 


MAKE THE 
pooess 000001 MOVB SsMBKE THE QSCI NUMBER NEG. 
1S: CLR +3 ZERO ANTS INDEX 
ot Spa088 We | gto tnaie Fe UTE FIRST CHARACTER TO A BLANK 
2S: CLR Re’ ban THE BCD NUMBER 
016001 oos4se MOV SDTBL(RO),R1  § 3:GET THE CONSTANT 
105 3S: sua R1,RS >3FORM THIS BCD DIGIT 
Ky BL 4$ 3;BR IF 
Pout INC R2 >: INCREASE BCD DIGIT BY 1 
224 BR 3$ 
4$: R1,RS ;;ADD BACK CONSTANT 
TS Re is CHECK IF BCD DIGIT=0 
Bate tesa a (SP) :STILL DOING LEADING 0’S? 
eee 100407 BMI 7, ;3BR IF YES 
1 SS: ASLB (SP) :3MSD? 
1 BCC 65 >3BR IF_NO 
000001 177777 MOVB 1(SP),-1(R3)  33YES--SET THE SIGN 
000060 6$ BIS #’0,Re MAKE THE BCD DIGIT ASCII 
000040 BI #’ | Re MAKE IT A SPACE IF NOT ALREADY A DIGIT 
Re, (R3)+ +:PUT THIS C TER IN THE OUTPUT BUFFER 
(RO) >:JUST INCREMENTING 
e2S4 ; 
2255 002746 : 
10502 R2 : 
2 Lie BR : *2G0 CHANGE TO ASCI 
2259 105 8S: TSTB 0s (SP)+ °:WAS THE LSD THE FIRST NON-ZERO? 
eeb0 005410 100003 BPL 9 :BR IF NO 
1 OOS54i2 116663 177777 177776 MOVB =-1(SP),-2(R3) };YES--SET THE SIGN FOR TYPING 


MAINDEC-11-DERPM-B MACY11 27(732) OS-OCT-76 15:01 PAGE 51 
DERPNB.P11 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
9$: RB (R3) 3;SET THE TERMINAT 
Baad 3 V (B3) + RS $s Bb THE K INTO Ren 
2264 (SP)+,R3 POP STACK INTO R3 
V (SP)+,Re 3 7B0E TACK INT 
V (SP)+,R1 $3 TACK INTO R 
MOV (SP)+,RO ;;POP STACK INTO 
TYPE SDBLK : : NOW T 
V e(SP) /4(SP) ADJUST THE STACK 
(SP)+! (SP) 
RTI " ;;RETURN TO USER 


SOTBL: 





SDBLK: .BLKW 4 

7 EEE EHH GR HHI EEE HEHEHE HEHEHE IEE IEE 
.S8TTL TRAP DECODER 

s#THIS ROUTING WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
: USE 0] 





: of NDEX T THE TRAP TABLE FOR THE STARTING ADDRESS 
$#0F THE DESIRED ROUTINE. USING THE ADDRESS OBTAINED IT WILL 
*G0 TO THAT ROUTINE. 
72 Ol STRAP: MOV RO,-(SP) 3; SAVE RO 
Bury sea ooco00e HOV 2(SP),RO *:GET TRAP ADDRESS 
b0S500 005740 TS -(RO) ;;BACKUP BY 2 
005502 411000 MOVB (RO). RO *:GET RIGHT BYTE OF TRAP 
005504 016000 o0ss12 MOV STRPAD(RO),RO  ;;INDEX TO TABLE 
005510 000200 RTS RO *:G0 TO ROUTINE 
.SBTTL TRAP TABLE 
s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:*BY THE “TRAP™ INSTRUCTION. 
$ ROUTINE 
pos512 $TRPAD: 
005512 o04712 STYPE ;;CALL=TYPE TRAP+0( 104400) TTY TYPEOUT ROUTINE 
gos514 poso44 TYPOC 3 CALL =TYPOG TRAP+2( 1 Oe) OCTAL NUMBER (WITH LEADING ZEROS) 
16 005020 TYPOS ::CALL=TYPOS § TRAP+4(1 ) OCTAL NUMBER (NO LEADING ZEROS) 
005060 TYPON 3;CALL=TYPON (104406) TYPE OCTAL NUMBER (AS AST CALL) 
005246 STYPOS ::CALL=TYPOS | TRAP+10(104410) TYPE DECIMAL NUMBER (WITH SIGN) 
005524 003776 HR ;;CALLSRDCHR  TRAP+12(104412) TTY TYPEIN CHARACTER ROUTINE 
NOSSe£ SROLIN ::CALL=ROLIN  TRAP+14(104414) TTY TYPEIN STRING ROUTINE 
ANGe IC SROCHR :CALLSRDCHR  TRAP+16(104416) TTY TYPEIN CHARACTER ROUTINE 
005532 go4o32 et SROLIN *:CALL=RDLIN  TRAP+20(104420) TTY TYPEIN STRING ROUTINE 


-SBTTL RHI1/RPOY DRIVER (REV. 0.9) 


;¥COPYRIGHT (C) 1974 
tHDIGITAL EQUIPMENT CORP. 
:#MAYNARD, MA 01754 


SUE URSE ini iiciey RMR ME Ets RARAR BARE tx ss 


MO4 


MAINDEC-11-DERPN-B MACY11 €7(732) OS-OCT-76 15:01 PAGE Se 
DERPNEPLI RH11/RPO4 ORIVER (REV. 0.9) 


;#AUTHOR: JIM LACEY 


5 ¥STORAGE FoR RHDS1, , BER , RHER2, AND RHERZ ON AN ERROR “2” OR “S” 
SEDER - s l 
?#RPERRS+4 = RHER2 
:#RPERR S+6 = RHER3 


* “ISRO 
WORD 


RO UE aH Gye BES 


;*DRVACT>O IMPLIES DRIVE IS ACTIVE WITH A COMMAND 
;*DRVACT<O IitPLIES DRIVE I TIVE WITH AN ERROR RECOVERY OPERATION 


MMMM 
NOUCWMr-O 


B3BDD DBS 


ott 


32 
m 
“RP 


000 
000 
000 
000 
000 
000 
000 
000 


BYTES) 


E OR NONEXISTENT 


BESSS888 
Seezex% 
AAA AAT 
NOU CWO 


OF ALL ONLINE, OFFLINE, AND 
XISTENT DRVTYP WILL BE ZERO. 


m 
2 
a5 

a 


Beeeeexe © 
AAA 
NOU CWO 8 


;#TRANSFER WAIT FLAG (TRNSWT=1 WORD) 
















eG meat MACY11_ 27(732) 
DERPNB.P 


OS-OCT-76 15:01 PAGE S3 
RH11/RPO4 DRIVER (REV. 0.9) 











mr :#THIS. 16. ONE HOP QUEUE. IT WILL CONTAIN THE ADDRESS OF 

e307 oosé04 ocoooc TRNSWT: .WORD 0 

2379 ;*SEARCH WAIT KEYS (SRCHWT=1 

B RES eat ise Di EL EPUB IS REL 
3 SEACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE O. 

fe oos606 000000 SRCHWT: .WORD 0 

2387 s#RPOY DRIVER ACTIVE FLAG (ACTORV=1 BYTE) 

ess SEACTDRV)O IMPLIES DRIVER 18 ACTIVE © 

g2¢1 005610 000 ACTORV: .BYTE 0 

33 SOF TARE a ToTRep THPL TES & sor THERE POT IMER ROUTINE 1S INACTIVE we 

23% :#ACTSTR>O IMPLIES TIMER ROUTINE 18 ACTIVE 

2397 O0S611 O00 ACTSTR: .BYTE 0 


DFLG= 
3% G=0 IMPLIES NO UNLOAD COMMAND 
2401 HEULDFLOOD IMPLIES UNLOAD COMMAND IN PROGRESS 
2402 #ULDFLG<O IMPLIES UNLOAD COMMAND IN WAIT QUEUE 
S ba 005612 000 ULDFLG: .BYTE 0 sDRIVE O 
2405 005613 000 “BYTE 0 DRIVE 1 
2406 005614 000 “BYTE ‘DRI : 
Eat boSb15 999 *BYT ‘DRI 
16 0 ‘BYT! :DRIVE 4 
e109 005617 000 -BYTE DRIVE 5 
ae - 

a ppepsy 000 OTE 5 : VE 8 

15 ;#LO0K AHEAD COUNT (LACNT=8 BYTES) 
uli s#LACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED 

1 0 LACNT: .BYTE O sDRIVE 0 
sui ppepss 0 ‘BYTE O DRIVE I 
2418 O05624 000 “BY 0 “DRIVE 2 
2419 005625 000 “BYTE 0 :DRIVE 3 
2420 005626 000 “BYTE 0 *DRIVE 4 
2421 005627 000 BYTE 0 “DRIVE S 
2422 005630 000 BYTE 0 DRIVE 6 
ees 005631 000 BYTE 0 *DRIVE 7 
2425 ; xSAVE REGISTERS FLAG (SAVEFG = =1 WORD) 
2426 AVEFG < ge THE RHLA/RPOS REGISTERS WHEN THE 
2427 SS OPERATION ef Grae AS PER (DPB 

LIES SAV THE BAT SRPEM REGISTERS, AS PER 


suse : ¥SAVEFG=0 IM 
e429 *#(DPB+14), AFTER AN ERR 








A 
a 
ery 


(ae) — 15:01 PAGE S4 


a 


Poet. 
ers 


BEREERRS 





a9 hs GS bw G2 a bs poe 


OOS6SE 177777 


cm 


Ben 


ee 
=) 


b= - 
Bass 


pL EEREEE EET T PET LURE EURPETEEE THEE Leer ere 


oe E 


g 


SAVEFG: .WORD OQ 


; #SEEK ie (SEEKFG=1 
Pn =) THPLIES 8 WHEN THE DISK ADDRESS ISN’T IN THE WINDOW 
© START A SEARCH COMMAND 
33 SSEEKFGCG IMPLIES DATA TRANSFER WILL 00 IMPLIED SEEKS, 
;®OISREGARD THE WINDOW 


SEEKFG: .WORD 0 


;#TIMEOUT TABLE (TIMER=8 WORDS) 


;#THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 


eS - 


TIMER: 


S saanaaae 
NOU wr: 


' 
- 
weewe oe ee ee ee ee ee 


33 BESSeeSs 


;*#DATA eFue UNDERWAY TOR (DTUW=1 WORD) 

ae 

TUWS4N ( N=0 TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 
DTU: joo ad | 


meant 4 TS TABLE (ATABIT=8 BYTES) 
THis Fae CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 


8 
D 


: TATTENTION BIT 
ATABIT: “eve 3 DRIVE 

AE 

Hi 


TO RHI PARITY ERRORS” (MCPE) ALLOWED BEFORE 
CALLING IT borane (MCPEMX=1 Perel BORD) 


MCPEMX: .WORD 3 


s#STORAGE FOR RPADR (THE FIRST ADDRESS (776700) OF THE RH11/RPO4) 
*#RPVEC (THE VECTOR SS (254)), AND RPVEC+e (THE BR LEVEL (5)}. 
RPADR: 76 a 


RPVEC: . 
jahaxtnun | MUMBER, OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD) 


jenn ru De DELTA DELAY IS @ SECTORS (MXDLTA=1 WORD) 
AXOLTA: . 8. #64. 








tT orn MACY11 ae (eae) — 15:01 PAGE SS 


; MINIMUM DELTA tg IS 2 SECTORS (MNOLTA=1 WORD) 
janine H_FOR 170 WINDOW IS 5 SECTORS (MXWNOW=1 WORD) 





ooooos 

s#DEFINITIONS OF THE RH11/RPO4Y ADDRESS INDEXES 
RHCS1=0 CONTROL AND STATUS REGISTER #1 <e REG. 00) 
RHeaeS bus hopeeee REGISTER hi hol TYE REG) 
ane ee ay By y A GI Aaa Shite REGS” ” 
Rebeiate CONTRO STATUS A eva ia isieR ate 
A a iE reel IDS REGISTER (DRIVE REG. 04) 
See ST O0K AHEAD REGISTER (DRIVE ae 07) : 
poss arnrreg ATV aoETo tn’ Oat? etd 
RHDT= > DRIVE Pay (DRIVE REG. 06) 
RHSN=30 :SERT REG (DRIVE REG. 10) 

=3¢ : OFF CG (DRIVE REG. 11) 
RHCC=36 ERENT CYTE REGISTER (DRIVE Ree: 13} 
RHER2=40 : REGISTER CORE REG. 14) ; 
RHER3=42 > ERROR gt (DRIVE REG. 15) 
RHEC1=44 *ECC TION REGISTER (ORIVE REG. 16) 

C2=46 ECC PATTERN REGISTER (DRIVE REG. 17) 
;#RH11/RPOY DRIVER i NIT. CODE 

s#THIs ROUTINE WI TERMINE WHICH RPOY DRIVES ARE 
LABLE FOR TEST NG AND SET THE DRVSTA INDICATOR 


ito HE PR at gs TATE FOR EACH DRIVE. 
s*NOTE: THIS INE CALLS DORVINT 


DREN ASR REBORN Naaten aR SoS URN e RRR RR RRP BRS 


i J PC,RPINIT 
i* BE TURN 
137% 177776 RPINIT: MOV aaPS, -(SP) i SAVE PROCESSOR STATUS 
1 o % 177776 HOV RPVEC +e sl; SSOR STATUS TO RH11/RPOY LEVEL 
C1350 JSR Bet iC ie ue ST QUEUES 
rl bose MOV sR iF fee TO BE CLEARED 
MOV om SS TO BE CLEARED 
1S: CLR (R1)+ ; 
= ei. eee 
1 56 MOV TUM, Re ; 
i 2s MOV 8-1. (RL) NT 
1 ete R DRIVE W nit IN RL Ri 
1 00s6 V BPaDR RY : ASS a 
12764 ii 000010 MOV #B1T05, RHCS2(R4) 
0060S2 3s JSR RO, ORVINT :60 INIT’ _ BRIve. 





roe 


we re a ne + eee — 
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ee Ge eee s fe @ ove 0.1 sex nr 
Seay 19 1 177770 ; Big #1C7,R1 GN LET THEO IVE_NUNBER GET TO BIG. 
Ea ceatt o1703 pose? MOV RPvec R3 fe + THE BOTT REO VE Lok 
1 l MOV #ISR, (R3)¢ 
2h Ol MOV REVEt+e (R3) 
0 JSR GETRI iRE TORE Ri- 
o of HOV ‘3 +, ;REST RE THE SSOR STATUS 
7S: CLRB = ORVSTACR1) teet T IVE STATUS TO OFFLINE 
e553 BR 4S +E Do THe EXT ORIVE 
Soe —_ Tis Rou SO T S IF A DRIVE EXIST AND IF IT IS 
Sees :#AN tan RPM” IF Is. A “READ-IN PRE IS ISSUED AND FMTe2 
esse ete SET ora dba THEN FOL, DPR, b VV ARE CHECKED TO 
+#] THEY LON A “1°, BND DEPENDING ON THEIR STATE, 
e560 sai :#DRVSTA IS SET TO THE PROPER CONDITION 
e552 i MOV #DRVNUM, RI sDRIVE NUMBER TO R 
2563 :# MOV RPADR, R4 ‘NT BUS ADDRESS OF 1 MLL /RPOY (RHCS1) 
eee * JSR RO, DRVINT i CALLED a 
* RETURN ; (PARITY) 
seep on pe ene 
2568 ORVINT: JSR RO, SAVRIS :SAVE RI-RS 
5258 MOV R1, RHCS2(R4) ay: ane 
MOV RI, R3 
oo8 oosss4 nove et DRVSTA(RL) bi eet tap" 
se75 CLR DAVIES) Steer SAYS & INDICATOR 
te 177564 MOVB #111, ARPAOR 7D0 A” 
ere 000010 Ea wBIT1e,RHCSECRH) jhonexisTEnT DRIVE bRIVE? 
PC, SET.IE 'GO SET "IE" WITHOUT A “TRE” 
2578 are 6$ iLEAV vals ut 
1S: ISR RO, RD.RP > READ We REG. 
eee ney (SP)+, RS tBUT DRIVE bene Re 
MOV DRVTYP(R3) } THE DRIVE 
2584 CMP yRS “IS ITA SINGLE PORT RPO? 
cee erp Sunt 
MP 020,RS 31S IT A DUAL PORT RPO4? 
2587 BNE c$ ;BRANCH IF NO 
2s: MOV aiel -(SP) *DO A "READ-IN PRESET" 
JSR , WAT. RP 
mes 
i MOV #B1T12,-(SP)  ;SET FMT22=1 
JSR RO, WRT. RP 
256 O06 RHOF 
Seep $82 RO,RO.RP READ RHOSI 
2597 RHDS1 








OS 
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? 
O1 os fby (SP)+, RS s AND SAVE. IT IN, RS 
6164 000016 MOVB T(R1), RHA Ay C Ha art N BIT 
Brieso nek glean Apt? sRHAS (RE Ind DUT WHY ri Lg 
14 RHER l 
4§: OM BPR, DRY, AND VV 
001004 witha BNE Haran ta DPR, ORY, OR VV IS CLEAR 
lierel 000001 oosss4 HOVE #1,DRVSTACR1) 3SET DRIVE STATUS TO ONLINE 
j oosssy SS: CLRB  DRVSTA(RI) sDRIVE STA OFFLINE 
ipe0eh 65: TST (RO)+ pare OVER the -ERROR RETURN 
004037 013060 7$: JSR RO, GETRIS iResron Ri-Re 
000200 RTS RO RETURN 
;#REQUEST PRE-PROCESSOR-HANDLES nese REQUEST 
?#CALL 
+e JSR RO, 2#RPOY ;CALL THE RPOY DRIVER 
+ PNTADR s ADDRESS OF ieeP Ol TER OF DRIVES PARAMETER BLOCK 
i RETURN S FULL 
«les yee RETURN eve Ip Re ouest Be aS ee 


013746 177% RPO Q4PS,-(SP) iSAVE_ THE CALLING STATUS - 
Goagay S068 iA Bde ver rue 
012002 (RO)+, Re PI PARAMETER BLOCK POINTER 
000016 16(Re) ; Te STA RTUS/ERROR INDICATOR 
111201 (Re) RI : THE DRIVE NUMBER 
oosss4 ORVSTACRI) ; CHECK nes ie Ot fe TUS 
ONL 


Soanano IN QUEUE? 






ay 
1 ; UNL 
ies mE os or ms 
RO, DRVINT 360 INIT DRIVE 
Beh eater acres Oe" 
: aBITIS!BITI4, 16(R2) s-DRIVE IS OFFLINE OR NONEXISTENT 
1S: , DRVQUE ;PUT to S REQUEST IN QUEUE 
#103, 2(R2) aa SREGC FOR AN UNLOAD? 
;8R 
Bes FA NRHA 
Pe, OPT SCALE THE OPTIMIZER 


iialiiialitsiaciia 





FOS 
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120000 000016 38: Bis eBITIS!B1T13, , 16(R2) sSET THE “UNLOAD IN QUEUE” ERROR FLAG 
013060 Ss: JSR yGETRIS 


Ke Bl cre Foes ean See 
zi mf 
=) 007476 6S: Be ots CI7 ;G0 HANDLE THE PARITY ERROR 


;#OPTIMIZER-CALLED FOR A PARTICULAR DRIVE 


ayn ss" 
‘gave Boe. STATUS 


F) 
Braga) SRCHWT CLEAR “SEARCH walTe KEY 
Re" ‘eT noe of A pew IN QUEUE? 


8 
Re 


6$ 
chia Rl) HS 


PC , POPQUE QUEST FROM QUEUE 
eBiT1S!BIT14, reid ; BIT OF STATUS/ERROR INDICATOR 
#150,2(Re) 31S THE REQUEST FOR 1/0? 

INITIATOR 


2 
7 
BICB 
5 
BEQ 
i 
fe 
CMPB 
BR 


~ 
4 


. + 
hata 


wm 
+ 


7 Al. 


gog7y2sQ2 


4§: 
SS: 


» 
— 
w 


6$: 


3 


;#COMMAND INITIATOR 


OF DPB 
1,CI3, OR CI4 


ATA TRANSFER 
REQUESTED BY DATA XFER 
4=NOT DATA TRANSFER 





SS 
SEE tT ERPMES i /npou ORIVER (REV. OCB 180k PAGE ,,G05 










19 004737 012776 Cll: JSR PC, POPQUE jREMOVE REQUEST FROM “DRIVES WAIT” QUEUE 
mS BtRSag OoSeON cre: fv Bag’ = DR ADRESS TORS conden 
at HOY Ri, SRY) cy BRAVE 
ADD 04, Ro j DESTRED COUNT 
Rene i 
y aierstae) Lap Sen ate 
mee AB oat sae iPALL fe eo PB abt oR TE) ROUTINE 
RHA * INDEX OF REGISTER TO LOAD 


(R2)+,-(SP) ER EE TR AOR es 


JSR RO, WRT .RP 
eis" 
MOV 2(R2).-(SP) ;LOAD “COMMAND+GO", “A178A16", AND “PSEL” 
ISR RO, WRT. RP 
eigst 
HOY Rt g0TUH ;SET “DATA TRANSFER UNDERWAY” 
HOY RI ReSaCRYD SELECT Oat 3 
MOV tothe) o(SP) RED CYLINDER ADDRESS 
JSR RO,WRT. RP 
10(R2),R3 : PICKUP SECTOR ADDRESS 
MXWNDIM, R3 “BACKUP BY MAX. SEARCH FOR 1/0 WINDOW 


) ;COMBINE THE ADJUSTED SECTOR WITH 


° ) To bee Tae teak TRACK & SECTOR 


ae ie 
= 


gag Some SNG 
BEBRS 
3 


oO 
ca 
N 










REE REDE RSE SSS! PY EEET BP SNSNSSEABAS SLOSS SS SARAASR 
ag gay se asa saUsg aE RE OHTEOHETEOE ETE OERTTTITE 


#131,-(SP) START A SEARCH 
cm RO HAT RP 

CI? . 

BIse ATABIT(RI), SRCHAT ;SET “SEARCH WAIT” KEY 
MOV RY ;RHCS1_ADORESS 

MOV RI,RHCS2(R4) ;SELECT 

nove 2(h2) ea STED ¢ COMMAND 
cHP #131,R3 ; as 

MOV 10(R2), = (SP) OOD be FRED TRACK & SECTOR 
nn RO, WRT. RP 

CI 

BR 2s G0 LOAD CYLINDER 

CMPB =s-«#105,,R3 IS IT A SEEK COMMAND 
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Fs 
Lond 
x... 
t 
Pe 
Pa po 


BNE 33 i BRANCH AS N 
000012 2s: V 1e(R2),-(SP) ;LOAD DESIRED CYLINDER 
011776 RO,WRT.RP 


— 
a 


CI6 
000115 : g3*5,Re i] f fo “OFFSET” COMMAND? 


011640 TSR RO, RD. RP HERGE Te Naa VALUE puto RHOF 
Rovnat‘Re) = fREGHSTER (RROP) 


:60 START THE C 
71S IT A “RECALIBRATE” COMMAND? 
71S IT A RETURN TO CENTER? 
:1S IT AN “UNLOAD” COMMAND? 
1,DRVACT(RI) ; DRIVE ACTIVE INDICATOR 
DRYSTAL : VE STATUS TO OFFLINE 


SUSSSSSESEEERERS 
WSF LOE ESKER 
Sr 
sae 


: 


= 
A 
— 


Sr 


ae 


ie THE OFFSET REGISTER 


oO 
- 
™N 


ie INE “FMT22","ECI™, AND “HCI” 
“FMT22", “ECT AND/OR “HCI". 


ITA IF No REGISTER” COMMAND? 


ie 16 fa OF WHERE 
;INIT. THe I THe Re REG. 
; INDEX OF LAST REG. TO MOVE 


es "0" Reno 
Lennie REG. 


253 Sng *Nge5 


eS5 


° 
% 


DERPNG 
S78 
2768 
as 
ir 
rr 
ae 
A 
& 
5783 
731 
oe 
aS 
733 
2800 
Sate 
2803 
Sots 
Sou? 
: 
: 


333 


3 


SEETIove) PesvuustevUIsIONera 


ito IT A SEeLect DRIVE" COMMAND? 
;BRANCH IF YES 


8 
i 
© 
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10346 : R3,-(SP) ;LOAD THE COMMAND 
RO, WRT. RP 


Ae tine,  aeey 
oeerG EVE THE Fat RPO REGISTERS? 


pe, SVRALL pee “Co. “eee THE REGISTERS 


Rl 
#1000. , TIMER(R1) ;SET A ONE SECOND TIMER 
#1,ORVACT(R1)  ;SET THE ORIVE Palave 


R. A), PETRY 20, d 


uw 
“4 
mt 
az 
-_ 
a 


31S ne DRIVE ACTIVE? 


SET “PAR BARI TY" ERROR INDICATOR 
i eli Zeros REGISTERS 


a 


© S8"3acSa 
=- == 


ae 


Te DANE wep AN I/ 2 


;SAVE RI-RS 
;PICKUP THE ADDRESS OF THE FIRST REGISTER 


q 


e822 
e 
Le 
ES 
sf 
e332 
ES 
EE 
2838 
oo 
pe 
ES 
ES 
ES 
2850 
ea 
ES 


re 


ae * 


a 


8 POINTER 
REGIST! 
PARITY” ERROR INDICATOR 
1h “OR ve OR rye” TO IDLE 


E10 THE NEX NEXT DRIVE 


INO DATA TRANSFERS. UNDERWAY 


i 
ee 


: 


aan ONION 
ae 


£8 
a 








i 11 27(732) OS-OCT-76 15:01 PAGE 62 
RH11/RPOY ORIVER (REV. 0.9) 


















MATNDE! 
DERPNB. 
R LEAR THE “TRANSFER WA 
Bae BR7Shd i ish BENE gue ELERR AL E opt Reo EET UE TES 
2880 007704 O1e7b4 00049 000010 vy set 08 TOS,RHCS2(R4)':00 A naSSEUS : N IL. 
geek Barrie 1 E Rereetals joie tHe Hoyt rE 
2883 000207 
28e4 
2938S ;#LO0K AHEAD ROUTINE 
eer ; ®CALL 
* MOV #ORVNUM, RI ;DRIVE NUMBER 
2389 2 x MOV #0PB, Re’ POINT TO DPB 
2890 x JSR RO,LA GO CHECK THE WINDOW 
2891 * RETURN ‘ERROR RETURN 
i RE >START A SEARCH 
* T :START A DATA TRANSFER 
007724 013704 005672 LA MOV RPADR, RY ;GET RHCS1’S ADDRESS 
eB 007730 010164 900010 MOV R1,RHCS2(R4) :SELECT DRIVE 
007734 Saas, 011640 ISR RO, RD. RP *READ CURRENT CYLINDER 
cee ea 1 4S sERROR RETURN ADDRESS 
2900 007744 Oezb62 000012 CMP (SP)+,12(R2) 31S CURRENT CYLINDER=DESIRED 
2901 ent 
eae 907750 001037 BNE 3$ Bian 
105261 005622 INCB LACNT( RL) INCREMENT THE LOOK AHEAD COUNT 
2904 007756 126137 O056e2 905700 CMPB = LACNT(R1),MXLACT’ -EXCEED MAX? 
Se farts TE coo me i 1 eel Secon ane 
3306 ll 10 10(R2),R3 SIRED SECTOR SS AND 
000303 SWABSséRR BY 64--ALIGN WITH 
03 BSR 3 OOK AHEAD REGISTER 
10 01 po0340 177776 MOV #340, J8PS sPRIORITY LEVEL "7" 
2911 Ol 11640 JSR RO, RO. RP >READ LOOK AHEAD REGISTER 
291 0100 gage RHLA 
2913 010014 O01 4§ 
eat 1001 sup (SP), »R3 sCALCULATE THE DELTA 
e316 1 og2600 ADD #(22.%64.>,R3  ;MAKE THE DELTA POSITIVE 
17 O1 1S: C MXDLTA, R3 *CHECK THE DELTA TO SEE 
e318 1 BLT 3$ IF IT IS WITHIN THE 
2319 O1 005704 CMP MNOLTA, R3 *WINDOW---IF YES, ZERO 
oe rl BGE 3$ : THE LOOK 
1 1 cosb22 2s: CLR LACNT (RL) AND TAKE 1/0 EXIT 
5455 1 3S: TST (RO)+ ;ADJUST THE RETURN ADDRESS 
10052 RIS RO 
10054 007476 4§: J PC,C17 PROCESS THE ERROR 
10060 RTS RO *TAKE ERROR RETURN 
2028 s#INTERRUPT SERVICE ROUTINE 
2930 010062 11 000001 005610 ISR: MOVB #1,ACTDRV SET "ACTIVE DRIVER” FLAG 
2931 010070 013040 JSR RO; SAVRIS ‘SAVE Ri 
eee 10074 13704 005672 MOV RPADR, R4 ‘ADDRESS RHSCS1 
010100 013701 005656 MOV OTUW, RI GET “DATA TRANSFER UNDERWAY” INDICATOR 





z 
S 


ALLEN NNT | 





-11-DERPN-8 MACY11 27(732) OS-O0CT-76 15:01 PAGE 63 
Pil RH11/RPO4Y DRIVER (REV. 0.9) 





010104 002403 BLT 1$ BRANCH IF NO DATA TRANSFER UNDERWAY 
aot Gants 010132 SR PC, TD B TRANSFER DONE 
U 010260 1s: TSR F Me aes ALL SPECIAL CONDITIONS 
101 rise eat \ CLRB ACT BEV ELE “ACTIVE DRIVER” FLAG 
010130 900002 RTI RETURN 
s*TRANSFER DONE ROUTINE 
010132 105061 ooss44 TD: CLRB —s ORVACT(RI) sSET DRIVE ACTIVE INDICATOR TO IDLE 
0101 % S127 37 177777 005656 HOV #1, DTU O DATA TRANSFERS UNDERWA 
OiBi¥e Oie7et 177777 005636 HOV $1, TIMER(RI) SCHNCEL TIMEOUT 
101 MOV TRNSUT , Re SS FROM THE 
bint se ea via CLR T : frente WAIT GUEUE--CLEAR QUEUE 
O10166 OS2762 000200 oc000l16 BIS #81T07, 16(R2) 
10174 010164 900010 MOV R1, RHCS2(R4) teeecy one AE DRIVE 
; 011640 ISR RO, RD. RP TRANSFER ERROR( TRE=1)? 
10206 CI7 
ee a a ann To 
10614 005737 005632 S SAVEFG SAV ne RH11/RPOY REGISTERS? 
i : 012140 ROP. SVRHIL Phe CtauE THE REGISTERS 
| he ot e oe 
Bites ae 474 1$ J PC’ OPT ich SPT EMISER 
1023¢ avn BR sce ony. Bee SPECIAL CON CONDITION (ENTRY #2) 
Bibsas bossa? biseen OU + Pe, ered Rett THE “DRIVES WATT. QUEUE 
010246 004737 012140 JSR isa THE RHI LIZRPOY RE REGISTERS 
0102s 012714 O40111 MOV sibilt, thy) DRI 
1 ooo444 BR > SPEC al CONDI 18n CEN (ENTRY #2) 
SPECIAL CONDITION ROUTINE 
010260 905001 ‘ SC: CLR a START WITH DRIVE 0 
pitsee fheser Bosses is: . fete  BROSTACRLD ;NONEXISTENT? 
10272 16 BGE 2S NO--BRANCH 
10274 INC Ri t YES--MOVE TQ THE NEXT DRIVE 
10276 1 ASLB Re *MORE DRIVES? 
ith a1 a7Mp Bt eBexec.-cspr “SEEK FLAG" 
10306 O01 preps NOV SAVEFG,-(SP) ; ° 2 
1031 JSR ReTATT $60 IN T. THE SUBSYSTEM 
1 1 MOV (SP)+,SAVEFG . ;RES THE “SAVE FLAG” 
1 1 MOV : *RESTORE THE “SEEK FLAG” 
pitase pioies AG ELECT DRIVE 
10330 010164 000010 2s: MOV 1,RHCS2(R4) SELECT DRI 
O03 1160s 000001 HOVE RY), *15 4 TF ve 
1034¢ 1 000010 SCl: MOV RI DO EIGHT DRIVES 
bins i is: DEC Ri’ NEXT DRI 
010380 002743 BLT ‘BRANCH IF OUT OF DRIVES 


re ee ———_—— 


5 


Pa 


~ 
—— 
o 

Bo 


GOR 


2 
bs pe 


Rote 


— 


g 


ope 


3 


ee en ee ee ee ne ee en ae ee ee ee 
-_ 


Pe 
qags 


R 
= 
o 
— 
2 


a 


co) Smee 
ae os 


: 


5 oe eS | 


ODo0O00000O F20O00O00O 


ee os a od 


ee 


= 
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000016 


011640 


000601 
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DRVACT(R1) 
1$ 


PC, SET. IE 


R3 
Sc4 
(SP)+ 


DTUW,R1 
(SP)+ 

TD 
DRVSTACR1) 
ULDFLG(R1) 


Pe, cETREG 
perscle 


DRVSTA(R1) 


eerris, RPERRS 


RP RRSH2, »RS 


PC,SCle 
(SP), RS 
5 

SC3 


R1 
#~1, TIMER(R1) 
Ri 


PC, GETREQ 


R3, RHAS (RY) 
Ri, RHCS2(R4) 





#3,R1 
RHAS(R4) ,R3 





;1S THIS DRIVE IDLE? 
sBRANCH IF NO 


SREPORT THE ERROR 

360 SET INTERRUPT ENABLE 

sREAD RHA UP TO THREE TIMES 

SN is wi ANY ATA BITS = 1 
THIS 


MORES READS ALLOWED 
READ CONTROL AND STATUS REGISTER 


IS “IE“=1? 

$hB-- TAKE ERROR EXIT 

: YES--RE TURN 

‘PROCESS ALL DRIVES THAT HAVE 
AN “ATA"=1 


;ATA=1? 

; YES--BRANCH 

;MOVE TO THE NEXT DRIVE 
;BRANCH IF MORE TO CHECK? 
;CLEAN OFF THE STACK 

;RETURN TO USER 

31S T THIS DRIVE SETUP FOR 1/0? 


; 
S---CLEAN OFF THE STACK (RHAS) 
: 0° ER DONE” 


3 
2s 
3 
ia 
= 


igs 
Ee 


Rem 
2508 


eons 
f 
pe 
a 
s 


“os 


M Bia eR RHER1, RHER2, AND RHERS 
sBTCKUP (Re (RHAS) BEFORE THE ERROR CALL 
ip ere ck FOR HORE ATA’S 

,sT0P THE TIMER 

T THE DPB POINTER FROM THE QUEUE 


ittcaR ATTENTION 
;SELECT DRIVE 









BS 
3 
Qo 


bs Be 
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ij 


— > bb pe 
RR 


ooo[eo 
be bne bme Be fe Be Fae fo fs Fe Ge ooo 


SRERE AUR sen eRaNne 


Sees 


5 
— 

ARR 

a 


-— 
tT 
~~ 
5 


hee 
g 


tT 
— 


: 


z 


se 
s 


: 


oO 
y 
Se ee ae on 


sSseatiansss 
ai 


: 
: 
: 


cs 
fT 


= 
aa 
ute 
= 
=e 
ae 
fw 


85 


BSSQQuee 


Se IAAL SR SESE GRATER SB IS Iso IIS oe CRORE URNS ee : 


Ob he hf Be be Bae pene Bae ba bn Fm fs BS bo ps 0 Bh hs ba 8 fe he Ps bs pn Be pm Be pe ps Be fe Bt He 


0 pan bs B= Be fn Be Fae Fe fee Henn Fn he Fae Ge 


SRRFcR Poo soe 


WW) 
pana 
£8 
8 
= 











RO,RD.RP ;READ THE RPOY'S STATUS REG. 
(SP) RS sAND PUT IT_IN RS 
(5P)4 *WAS THERE AN ERROR? 
C3 *BR IF NO 
VACT(R1) *CHECK THE DRIVE ACTIVE INDICATOR 
Sc10 *BRANCH IF IDLE 
RO, RD. RP *READ ERROR REGISTER #1 
(SP)+, RS ;AND SAVE IT IN RS 
PC, SVRH11 : SAVE RHI /RPO REGISTERS 
#ili,-(SP) ; ISSUE A DRIVE CLE 
RO, WAT. RP 
RS ;WAS “UNSAFE” CONDITION =1? 
1$ “BRANCH IF YES 
8 TIS!BITO7!BITOS, 16(R2) ; INFORM USER OF ERROR 
RO, RD. RP ;READ DRIVE STATUS REG. #1 
(SP) RS ;SAVE RHDS1 IN RS 
(SP)4+ "ERR"=1? 


$ ; 

#-1,ORVSTA(R1) ;DRIVE IS UNSAFE 
PC, SVRH11 *SAVE RH1I/RPOY REGISTERS 
R3, RHAS(R4Y) “CLEAR ATTENTION 
sBTTiStel Tie, 16(Re) ; INFORM USER OF UNSAFE ERROR 
RS s"DRY" =1? 
3$ *BRANCH IF YES 

#-1,ORVACT(R1) ACTIVE FRO RECOVER 

#1,ORVSTA(R1) | ONLINE 


SP0000. , TIMERCRE) ;START 30 SECOND TIMER 


-D IDLE 
TY “DUMP THE QUEUE 

G(RL) : 80 a PROGRESS OR QUEUE? 
ULDFLGCRI) - $CLEAR UNLOAD FLAG 


(SP)+ ;REMOVE /(RHAS) FROM THE STACK 
DRVACT(R1) ; Is DRIVE IDLE? 


weir 'BITO7!BITOY, 16(R2) s INFORM USER OF ERROR 
Davact (RL) alee i¢ 





1$ 4 $ BRANC 

PC, GETREQ *GET OPB POINTER 

cI? *PROCESS THE PARITY ERROR 
CI7B ‘PROCESS THE PARITY ERROR 
DRVACT(RI) “TEST DRIVE ACTIVE 

SCll *BRANCH IF DRIVE IS ACTIVE 
$C10 "BRANCH IF DRIVE IS IDLE 
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100210 


000016 


00S&06 


000016 


ooss4e 


005611 
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$C10: 


SCll: 


1$: 


SCle: 


1S: 


1S: 


2$: 


3$: 
4; 


MOV 
JSR 


ER} T ISOTOPES, ,16(R2) ; INFORM USER OF ERROR RECOVER COMPLETION 
(SP) RS ;PUT a IN _RS 


pc,sti2 ’ ear We" RHERI, RHER2, AND RHERS 
ec3 on’ MORE ATA’S 

ULDFLG(RI) oer PROGRESS”? 

ULDFLG(R1) 

DRVACT( ree mI 

BTABITIRL), SRCHWT NG A SEARCH OPERATION FOR 


POPQUE : 
w8tT07,16(R2)  ;SET “DONE” BIT 
VEFG : SAVE THe RH11/RPO4 REGISTERS? 


SOU Dao 


BRANCH IF NO 

, SVRHL1 YES--SAVE ALL OF THE RHi1/RPOY REG’S 
pC, OPT “START A REQUEST 
RI,RHCS2(R4) —_; SELECT DRIVE 
RHOS1(R4), RPERRS ;SAVE THE FOUR REGISTERS THAT 
RHERI (RY); RPERRS+2 ‘WILL TELL US SOMETHING 
RHER2(R4) | RPERRS+4 
RHER3(R4) /RPERRS+6 
RO, DRVINT s INIT. THE STATE OF THE DRIVE 
1$ AKE ERROR EXIT 
Pc RETURN 
(SP)+ *POP PC OFF OF THE STACK 
sce ‘PROCESS THE PARITY ERROR 


;#RPOY TIMER ROUTINE 
ALL 


#TIME,-(SP) sELASPED TINE IN MILLISECONDS ON THE STACK 
RO, RPTMR *CALL RPOY TIME ROUTINE 


ACTDRV ; CHECK ° ACTSTR™ 
ag NON SERO EXtT 

#1,ACTSTR ise a "ACTSTR® 

RO, SAVRIS SAVE RI-RS 

Rl ‘ST T WITH DRIVE 0 

TIMER(R3) IS THE TIMER RUNNING? 

2s * BRANC TNO. 

16(SP), TIMER(R3)’ ; COUNT INTERV AL 

2g :BR R IF NO NO SOFTWARE TIMEOUT 

RO, STO CALL SOF THBRE | TIMEOUT ROUTINE 

3$ :60 

Rl : MOVE %0 NEXT DRIVE 

#8. ,R1 s0UT. 0 OF DRIVES? 

tg hia: 

RO, GETRIS Nes 

actsTR iT FRO CATIVE, OFTWARE TIMEOUT ROUTINE FLAG 
(SP)+, (SP) pew THE S 


ek IMER(R3) ‘STOP TIMER 
(R354 
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l 
aise ; #SOF THARE TIMEOUT ROUTINE 
316 :#CALL: STO 
Site te MOV sORVNU, Rl sDRIVE NUMBER 

163 i JOR RO, STO :CALL--DRVACT MUST BE NONZERO 

165 : 

1 ll 1 STO: MOV -(S?) STATUS 
HE piss piaes Areeoe 177776 MOV Revetig, HPS ae ROCs BR LEVEL 
sibs Bilsey Oia7ay ObeE7e mov “RHCSI" 

31 ty BLBEN GODBie MOV ae re 

171 O11 011640 ISR *READ “DRIVE STATUS REG” 
ize ll le RHDS1 

it i 1 ibs 7o96 (SP)+ ils “DRY"=1? 

175 Lis BMI *BR IF 
airs ll O0SB04 STOl: MOV FRNGUT Re * PICKUP WAIT QUEUE 
3177 11404 OL O0S656 cH Ri, OTUM ; TRANSTER Y ON THIS DRIVE? 
3179 ite 012754 JSR GETREQ Be 
3180 O1141 1000 O00016 1S: BIS etn 'BITO9, othe) FLAGS 
sie OL 1430 000010 HOV ! frcsacman seh = antl a 
3 ie ECeS CLRB BavARTLRTS batve Is ue fess 
He Hi i Pe ere pete Tig Won FAG a 
31 ll CLR R3 
3 Oli JSR RO, DRVINT sINIT, THIS DRIVE 4 

| a6 hist T3T8 Gaver Ra ie IDLE BEFORE THE INIT.? 
tH ll MOV TRNSHT, R2 : WAIT QUEUE 
31% His ie cH TUN, Ri 70 ON THIS DRIVE? 
310 O11 ISR PC, GETREO . NTER FROM QUEUE 
31% 1504 I A ad PEO LEER OF INIT. 

1% 11512 DRVACT(R1) ACTIVE TO IDLE 

3 1151 cL G(R1) 
31% Olle Glen rst TeX ve uncer 
ont ifs 22’ 5 »Rl neat BEEN CHECKED? 
pare 11 127% #-1, OTUW H TRANSFERS UNDERWAY 
: eI ete © EN A ache alee 
1 B04) O4 
11 MOV BHAS(RY) RS Ae S ATTENTION FOR THIS 
3208 i ITB if tee ree UP? 
a ie74 CMP Ri TUM tL at UNDERWAY FOR THIS DRIVE 
le 011602 RO. RO. RP FES CHECK “ROY” 
3213 O11606 RHCS1 
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BSc 4 agi BSH Aner Yes wipraathie aoe £6 
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“¥SePr os SE Sok. a Fd = 
ces | oct Gitiiin Houta Ge 
ts) a 
=a ye ot Cc, ot Mg os Bet 6 3 
4 os she BE g ‘ass G82 12 pee es gee @ 
a se oe ee eee r 
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ee ee ee . 
5 pe 5 -e6 ee § 
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i eric SER OR RS OR RRR RRR COCR RE RCE RRERRE 


MACY11 
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0 
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007562 
3737 005670 011764 &D.RP: 
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3270 3% MOV DATA, -(SP) sDATA TO BEL ADED ON THE STACK 
371 :% JSR RO, WAT. RP iA ALL THE ROUTIN LOAD(WRITE) THE REG 
75 : ENDEX. S fears TER 0 Be ERROR 
an + BRaAOR Ape Peer RETURN 
Ea 011778 916637 000002 012064 WRT.RP: Hoy eae WRT WO mutsT Toe era TO WRITE 
3278 Oi Stbe tge48 012066 MOV {f0) pa x Fee TO BE WRITTEN 
3280 bis04 1 4 000150 012064 cre ae POR Dar SrERS 
3g pi ehee Sea? 011640 fi, RO.RP i maf Lae Nea it "PSEL 
3283 Ol RHCS1 
3ee4 1 1s THe ST RPOR 
1 16 SWAB 2Os« SP?) 
01 04271 BIC #tC7, (SP) 
o1 012065 nove {SP)+, HRT WO+1 
3283 1e0s¢ 1 1S: i y (80) ,RO ;TAKE THE ERROR EXIT 
3291 012054 005672 012066 2S: ADD RPADR,WRT.AD  ;FORM THE ADDRESS OF THE DISK REG. 
12062 012737 MOV (PC)+, a(PC)+ LOD DESIRED REG. 
l WRT.WD: - WORD ! WRITE GOES HERE 
1 WRT.AD: . : ss IS F HERE 
3295 O01 011640 JSR RO, RD. RP fea FOR PARITY ERROR ON WRITE 
32% Mee 14 RHERL 
ag bist Sir -sBIT03, (SP+ 
3299 LelgM BEQ zt ;BRANCH IF “PAR=0" 
3300 tel 012120 MOV -2(RO), 15 > PICKUP INDEX 
3301 O1e114 JSR RO,RO.AP *READ THE REG. 
$302 Sieled 1S .WORD 0 : REG. INDEX 
te 2s . RETURN TO THIS ADDRESS ON ERROR 
ae pists? FeroR (SP)+ + Or EAN OFF te cK 
3306 012130 2s: Hoy (RO), RO :TAKE THE “PARITY ON WRITE” ERROR EXIT 
ae tts ss: FF Bove aust Fon cmon FREE ext 
3303 12136 RTS RO 
$311 ;#ROUTINE TO SAVE THE RH11/RPOY REGISTERS AS PER DPB+14 
EE :xCALL MOV 2 DPB POINTER TO R2 
$315 * ISR Pe SVR SAVE THE DRIVES REG’S 
7 12140 SVRH11: JSR RO 1S . SAVE REG.'S RI-RS 
18 012144 O1 MOV RY 
19 0126150 11} = (Re) ,RHCS2(R4) * ; He ORIVE 
121 14 MOY 14(R2). Bz ; TABLE POINTER 
121 421 BEG ug : SIT 
i RS og RS it BS RCeTE 
3324 ot 155 1S: CMP Rak" REACHED Reals 
3325 012172 001005 BNE BR IF NO 
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3 sSseeees Bae 
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06 


TSTB —- RHCS2(R4) 
BMI 
CLR (R2)+ 
BR 
2s: MOV ,7(SP) 
ADD R3’ (SP) 
MOV a(SP)+, (R2)+ 
3S: TST R3)4 
CMP 3, #RHECE 
4 ae RO, GETRIS 
RTS Be 


ti MOV 8ORVNUM, RI 
* JSR PC, SET. fE 
i RETURN 
SET.IE: -(SP) 
nov RPADR RY 
MOV Rl Bees RY) 
MOV (R94), =(SP) 
BIS #B1T14, (SP) 
SWAB sé SP?) 
MOVB eB1TOG, (Re) 
BIT sB1Tl "RHCS2(R4)' 
BNE 1$ 
TST (SP)+ 
BR 2s 
1S: MOVB (SP)+,1(R4) 
2s: MOV (SP)+,R4 
RTS PC 
Aeeyele COUT og 
Pi “By i 0 
Be 8 
‘ 0 
BYE 0 
-BYTE 0 
;QUEUE INPUT POINTERS 
QINPT: .WORD ao 
QORVY 


;QUEUE OUTPUT POINTERS 





tERANCH ta F RHDOB CAN BE READ 


sELSE SAVE IT AS 


0’S 


TO Be maw ADDRESS THAT IS 


SAND READ IT 


ie, ea REG INDEX 


as REGISTERS. RS 


;#ROUTINE TO SET THE INTERRUPT WITHOUT GETTING A “TRE” 


;ORIVE NUMBER TO Ri 


;SET "IE" 


: RY 
td ADDRESS OF RHCS1 


; SELECT DRIVE 


; T THE ° 
;ADJUST FOR DATO 


; ¥E5--CLEAR “T 


BIT OF THE WORD READ 


CLEAN OFF THE STACK 


ines Tone RY 
RETURN TO CALLER 


Se we we wees wes wees 
0-4 4 4 40-4 4 


AMM MMM 
NOU CWO 


SSSSSSBs 
FAA ATTA 


NOU CWI O 








1 START ADDRESS 


SSSSssss SSaacaaan 
See eRee Ko inthis 


FO6 


ae ee 
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3 daaasidda 4 SESISSSESUBBRS UWA! 
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Spe reat 


cn hen ban bam tum bam ben baw.) 
Qo00000O0 


roeesuemnica 


Re eee heen eee, bee pam pee pean pam bam pam ban pan pam pan pam pam pam) 
200000000000000000 


i Bananas ae ROA RRR ER RRERRRRRARBARRRROR AR ARRRORRRRRAR 
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6 
za) 
3493 


012334 


012304 


012314 
012356 


012314 


OS-OCT-76 15:01 PAGE 72 
0.9) 


GO6 



















;*#EMPTY THE QUEUE SPECIFIED BY R1 


;#CALL 
3% Vv Bevin R ;DRIVE NUMBER TO Rl 
EMPTYG: cle _— ;CLEAR NUMBER OF ITEMS IN QUEUE 
GhnercR, QOUTPT(R1) ;SET OUTPUT QUEUE POINTER=INPUT POINTER 


;#ROUTINE TO PUT A REQUEST IN QUEUE 


»R1 


nov i g, VQUE ORES 
Relay ata con Ra nu IN QUEUE 
DRVGUE: CPB $10, QCNT(RI) ils QUEUE FULL? ; 

The NCRENENT QUELE gh 


INCB GCNTCRI) 

MOV R2,QQINPT(R1)  ;PUT THIS REQUEST IN QUEUE 

ADD #2, GINPT(R1) IN 

CHP QIPT(RI), astorchine. -T .* a RESET THE POINTER 
QSTART(RLD GINPTERI) ;YES--RESET POINTER 


18: 
TST (RO)+ ; TAKE RETURN 2 
2s: RTS RO sRETURN TO USER 


pat TO GET THE “DPB" ADDRESS OF NEXT REQUEST IN QUEUE 


i: 35h Porcevnes = $00) GET Tre REQUEST 


3% OF THE REQUEST 
2 tRes0 TF IF NORE REBLEST IN QUEUE 
GETREQ: CLR R2 
TSTB = QCNT(R1) 31S THERE any REQUEST IN QUEUE? 

is: fe Rt sN0---GRANCH 

: HOV QQOUTPT(R1),R2 ;PICKUP “DPB POINTER FOR THIS DRIVE 
2s: RTS RETURN TO USER 
:*ROUTINE TO “POP” THE REQUEST FROM QUEUE 
?#CALL 
* MOV # Ri sDRIVE NUMBER TO Ri 
* i JSR PC, ‘CALL TO REMOVE REQUEST 


;RE=ADDRESS OF DPB REMOVED 
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Bb 
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- (R1) 





;DECREMENT QUEUE COUNT 


SQOUTPT (RI) R2 GET THE ne Be POIN TER 
2, QOUTPT (RI) UPDATE THE POINTER 

$0 TPT(RL), astort ) :TIME T 0 Reset HE POINTER? 

QSTART(RI), JQOuTPT(RI) sYES--RESET THE POINTER 


PC 


;RETURN TO USER 


;#ROUTINES TO SAVE RO-RS AND R1-RS 


POPQUE: pece 
ASL 
MOV 
Vv 
18: oR 
RTS 
3% 
;®CALL: SAVROS 
3% JSR 
* RETURN 


RO, SAVROS 


PCALL: SAVRIS 
3% ea RO, SAVRIS 


;RO-RS IS ON THE STACK 


;R1-RS IS ON THE STACK 


#HUPON RETURN FROM SAVROS AND SAVRIS THE STACK WILL LOOK LIKE: 


ele RO 
#410 Ri 


4406 Re 
8 ioe R3 
s R4 
;"TOP RS 


SAVRIS: MOV 


a BY THE JSR INST. 
3 SAVE 

SAVE 
GET 


ALBN-O 


sROUTINES To TO RESTORE RO-RS AND R1-RS 


jHCALL: GETROS 
3% TURN 





RO, GETROS 





;RO-RS HAVE BEEN RESTORED 


;R1-RS HAVE BEEN RESTORED 


ST 


ae JSR OFF OF THE STACK 


Ra i 
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| HHHHEHHHEHHHEHHBEHHHHHEEHEEHHEHHIEHHHHEH HEE HEHEHE 
-SBTTL DATA PARAMETER BLOCK 






Hanae 





28 s KSRERKELESELERSL LAKE REE SESH SLES EAE RELEL EERE REE KE RA EL RSEEL ESE 
3228 013102 000 DPB:  .BYTE O ;DRIVE NUMBER 
3560 013103 BYTE 0 OFFSET VALUE OR FMT22, ECI, AND HCI 
=e le ‘Bue 8 fe i Ete? Bee 
3564 013110 001176 “WORD INREG 
ee Rates Be 
3568 013112 000 BYTE 0 ISECTOR BOORESS OF OR 
ae 013113 000 BYTE 0 TRACK ApGRESE OR 
3569 sai . iL AST REGISTER INDEX 
=i a bisiee “WORD REG HER Ror fg FIRST OF TWENTY 
3573 SEAT Tons 1S 
3574 TO STORE THe RH THe ond REGISTERS 
3575 50M AN BOR. I , REGISTERS 
378 013120 ooocoe .WORD 0 :STA INDICATOR 
3578 sBITAS =1 1 =) OCCURED 
i 170 4 = IT10 AND BITO6 - BITO3 
=a iN dare PEPE oF PRRORS 
3583 913122 REG: -HORD : iS7 ORE RPOY REGISTERS HERE 
358 o13133 WORD 0 ;RHBA 
er] pial “WORD 0 ‘Ruse 
13134 “WORD O *RHDS1 
1 138 “WORD 0 *RHERI 
35 131 "WORD 0 + RHAS 
3591 013142 : 0 *RHLA 
35 13144 ‘ sRHDE 
2 1 is “ : 
131 “WORD *RHDT 
359 0131 “WORD 0 +RHSN 
% 131 “WORD O + RHOF 
131 WORD 8 Race 
Fs 131 “WORD 0 ;RHER2 
3600 alae WORD 0 sRHERS 
ete Bt 158 “HORD 0 *RHECE 
3604 QDE=1 ;DPB INDEX EQUATES 











06 
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é 
&¥ TUS=16 
5 ERERESLALALAALAREEAEL ALE RATLEAARHE PERE AALEREE LAL LLLL REAR EERE ES 


-SBTTL HEAD CODE TABLE 
7 HHHHEHHEHHHHE HEHEHE HHEEHEE HEHEHE HEHEHE EEE 


RRRKRR 
me bh bs Ps Pm Pe He He 
NOU Wl 





dae b= =e f= fe fe oe fee 
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T 
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Bae Jane Pea bat hc eee Gas Pe Ban has Pao ee Bre Pit Pant P49 He eae Bt res ne fae fen $e Bo pe 


SRUSI2 RONG IRAE SRSp oR Sot 


i ;HEAD ADDRESSES FOR CYL 245 
3 

: 

10 

i} 

i§ 

14 

15 

16 

17 

20 

52 

100000 ; TABLE TERMINATOR 


;HEAD ADDRESSES FOR CYLS 400 & 004 


NO-NO 
: 8 


; TERMINATOR 


5 LHRRLLELALALELLLALLARELELAARALLELE LALA LL LE LALLA A ARRERA RELA LL LES 


-SBTTL OFFSET CODE TABLE 
59 EGE EEE EE EEE 


CRUMP DR SB se sad Foes SOB U RR ECR CRN OEE SS 


Oooooo0oo0o0o 
pes Bae ee Ft ene Pn Bo be fe 


PRaRO RAT 


BRgRBARTS 





e7 
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53 
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Cand OmwUmTnworoO 
FP YS OS BUT OU ON OU OU SON OUINT MUMS. Ome SSeS eS 
Sas a are Ererere SS SS SSS Sa — = ra —— 
25 dn dn ent da an enda bn ea babnen dn dnenen eneaea do dace Sasa cadena snes sata ta ba satatatn tate soa bs ata datas poste oa ees 


SESELEZ EBA ARSUS NAMA INGE Soa Sas SBR s BBER ARRRMaR Gasca 
SSRN ANNE ann HR ARRARRIANR a a Re a eRRRRRRR NS 
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ENDTBL: © 
-EVEN 


5 RERRERREA ERLE ER ELLA EEL AE EEL EEE EERE ALLEL REAR LEE EERE REEL ER ER ERE 


-SBTTL MESSAGES 
[HHHBEHHHHHHEHHHHE HEHEHE HEHEHE HEHE HEE EEE HEE 


Sed TITLE: .ASCII <15><12>/RPO4Y HEAD ALIGNMENT VERIFICATION PROGRAM/<15>< 12> 


-ASCIZ /MAINDEC-11-DERPM-B/<15><12>< 12> 


047040 hats DDU: -ASCII /DO NOT SELECT DRIVE UNTIL DDU (OR DEDU) HAS BEEN CONNECTED/<15>< 12> 





SET DDU (OR DEDU) FUNCTION SWITCH TO ’HEAD ALIGNMENT’ /<15><12><12> 


a 
a 
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rs.) 
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g 
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S 
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-ASCII 7/ 
-ASCIZ / 
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MACY 





TO INHIBIT THE INDEX ERRORS, 7<15><12> 


FUNCTION *+TPNDEXERR’ MUST BE DISABLED IN THE DRIVE /<15><12> 


s 
8 
z 
: 
re 
tu 
is 
: 
: 3 


IXEGND: .ASCII /DEPENDING ON THE INDIVIDUAL ALIGNMENT PACK USED, CONSTANT/<15><12> 


SLPASBOENVORIORA Oh PLIRY 
Fe stag eaecusneas ey ous 
Utaaieesuegatamy cates 

Y BIPL=K, Saute = oe 
56 Senses caecutres tesco 


MAUMMASARUASREMBRRRRONER ERAN SeSSC SSE Seas eset Sree eS O TTS 


Sap hep ban ben ben ban ben ban Jen pan dan bam bon ban ban ban ban ban ban ban ban fae foam fran ae eam ham bees eae hare en te ee ee ne ee ee re ne ee ee ee ee ee ee ee ne ne te ee ee) 


= OOO0000900000000000000000000 


EECA ReR RRR a 
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3 


NODRV: .ASCIZ 
ENTERD: .ASCIZ 
WLOCK: .ASCIZ 


O20040 HEADER: .ASCII 


043111 VERIFY: 


8 
Geta foes 
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2 Pieeeteees Guo ses Be 


tt FTTT SSF 5527, 5 on am bam bam em nae nam) tt 
20 BOOOK0000000 F2O0O000 20 
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CYLe4s: 


ENTCYL: 


BADTRK: 


BADCYL: 


EM]: 





: .ASCIZ 


-ASCIZ 


: .ASCIZ 


-ASCIZ 


: .ASCIZ 


: .ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


: .ASCIZ 


-EVEN 
/ASCIZ 


/ALIGN/<15><«12><12 


/EXERCISE/<15><«12><12) 


7HEAD 0 SELECTED BY DEFAULT/<15><12>< 12> 


/CYLINDER 24S SELECTED BY DEFAULT/<15><12><1a> 


/DISK IS POSITIONED AT CYLINDER 245/«15)«12>«12> 


¢15><12>/ENTER HEAD: / 


¢15><12>/ENTER CYLINDER ADDRESS: / 


“INVALID HEAD ADDRESS/<15>< 12> 


7INVALID CYLINDER ADDRESS/<15><12> 
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